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ELŐSZÓ 


Örvendetes, hogy az általános iskoláinkban egyre több helyen van 
— s reméljük még több helyen lesz — személyi számítógép. Az utóbbi 
években ezek elterjedése miatt a könyvpiacon is sok, a BASIC nyelvet, 
illetve különböző személyi számítógéptípusokat ismertető könyv jelent 
meg. Úgy ítéljük azonban, hogy az általános iskolai tanárokat e témába 
bevezető és munkájukat segítő könyv eddig kevés jelent meg. A számítógé- 
pek elterjedésében nagy szerepe van a játékoknak, de csak ebben az irány- 
ban keresni a fejlődés, és a fejlesztés irányát, nem lenne szerencsés. A szá- 
mítógép szerepe a napi munkában, a termelő és nem termelő szférában 
egyaránt növekszik, s lehetőségeinek kihasználásában csak a kezdet kezde- 
tén vagyunk. Az általános iskolai anyag is számos alkalmazási lehető- 
séget kínál a számítástechnikai alapismeretek elsajátításához. A tantár- 
gyak közül elsősorban a matematika és a természettudományi tárgyak 
(fizika, kémia), valamint a technika keretében van lehetőség számítás- 
technikai alkalmazásokra. Egyre növekszik azonban a számítógép sze- 
repe az idegen nyelvek tanításában is. 

A jelen kötet első részében a BASIC programozási nyelv bevezető, 
alapvető ismereteit tartalmazza. Ezt követően olyan témákat dolgoz fel, 
amelyek a matematikán belül a tanulói, illetve a tanári munkát segítik a 
számítógép felhasználása révén. Majd hasznos példákon keresztül mutatja 
be a számítógép felhasználásainak lehetőségeit a természettudományi és 
humán tárgyak területén, valamint az iskolai adminisztrációs munkában. 
Végül a felhasznált és ajánlott irodalom felsorolása segíti az olvasót is- 
mereteinek további bővítésében. 

A Módszertani Közlemények Könyvtára keretében — az egyes 
kötetek tartalmától és célkitűzésétől függően — elsősorban az általá- 
nos iskolákban működő tanárok számára írt köteteket jelentetünk meg 
Tanárok Könyvtára sorozat formájában, amelynek ez az első kötete. 

Reméljük, hogy ezen a módon is szolgálhatjuk a pedagógusok 
szakmai továbbképzését. 


Szeged, 1986. augusztus 
Dr. Szendrei János 


1. SZÁMÍTÓGÉP AZ ISKOLÁBAN 


1970-ben készült el a számítástechnikai oktatás programja. A prog- 
ram meghatározta a képzés célját és tartalmát, a képzésben résztvevő 
oktatók felkészítésének ütemét, a szükséges számítógépeket. Az általános 
és középiskolai tanulók részére a program az algoritmikus gondolkodás- 
módra nevelést, a számítástechnikai alapok megismerését irányozta elő, 

Az 1980-as évek elején a mikroszámítógépek, a személyi számító- 
gépek tömeges megjelenésével kedvezően változott a helyzet: kidölgo- 
zást nyerhetett egy iskolaszámítógép-pr ogram. A program első lépésként 
az 1982/83. tanévben a középfokú oktatási intézményeket látta el szá- 
mítógépekkel, és — elsősorban szakköri foglalkozások keretében — a 
számítástechnikai alapismeretek oktatását tűzte ki célul. A középiskolai 
program folytatása mellett az 1985/86. tanévben megindulhatott az ál- 
talános iskolák kísérleti számítástechnikai programja is. 1985-ben — ha 
nem is tömegesen — de megkezdődött az általános iskolák számító- 
géppel való ellátása is. A közoktatásba kerülő számítógépek a 
HT—1080Z, PRIMO és C—16 gépek lettek. 

Az iskolaszámítógép-program megvalósítása során elkezdődtek, 
majd folytatódtak a pedagógiai kísérletek egyrészt a számítógépek is- 
kolai felhasználásáról a számítástechnikai oktatás megvalósítása érde- 
kében, másrészt a számítógépnek a tanítás-tanulás folyamatában való 
alkalmazásáról. A hazai és nemzetközi tapasztalatok felhasználásával e 
kutató munka irányítói és végrehajtói elsősorban az Országos Pedagó- 
giai Intézet, a Tudományszervezési és Informatikai Intézet és a elizó; 
gusképző intézmények voltak. 

Az OPI az általános iskolai számítástechnikai program egyik fő 
feladatául egy olyan módszertan kidolgozását tűzte ki, amely a számítás- 
technikai módszerek alkalmazását beépíti a különböző tantárgyakba, 
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megismertetve a számítógép alkalmazási lehetőségeit, hogy ezáltal elő- 
segítse a tantárgyi ismeretanyag megértését a személyi számítógép ok- 
tatógépként vagy szimulálóeszközként történő alkalmazásával. A fel- 
adat megvalósítása érdekében a fő cél azoknak a lehetőségeknek, mód- 
szereknek a feltárása és kidolgozása volt, hogy hogyan lehet a személyi 
számítógép alkalmazási területeit a tantervi anyaggal és követelményekkel 
úgy összhangba hozni, hogy a tanítási-tanulási folyamatban javulást, 
időmegtakarítást érhessünk el, a tanulók problémamegoldó készségét, 
gondolkodás módját pedig kialakíthassuk, fejleszthessük. 

A fenti feladatok és célok megvalósításához kívánunk e kiadvánnyal 
is hozzájárulni, melyet elsősorban az általános iskolai matematika ta- 
nárok számára állítottunk össze, de példákat mutattunk be más tárgyakat 
tanítók részére is. 

A számítógép tanítási órán való alkalmazásának alapelveiből min- 
denek előtt kiemeljük, hogy a szaktanárnak két alapvető cél elérése ér- 
dekében kell döntésre jutnia. Az egyik: 


a tanuláselméleti cél, vagyis mennyire alkalmas a számítógép 


az új ismeretek feldolgozására, 

az új ismeretek demonstrálására, 

az új ismeretek szimulálására, 

valamint az ismeretek gyakorlására, gyakoroltatására. 


A tiásiks a tananyagtaxonómiai cél, vagyis milyen kritériumrendszer 
alapján választható ki a tantervi anyagból az az anyagrész, melynek 
számítógépes feldolgozása hatékonyabbá teheti a tanítási-tanulási 
folyamatot. 


Kiadványunk további fejezeteit ezen általános pedagógiai feladatok 
és célok megvalósítása alapján állítottuk össze, természetesen nem min- 
denre kiterjedően, csupán csak példákkal illusztrálva gondolatainkat, 
ajánlásainkat. 

Befejezésül óva intünk mindenkit a számítógép mindenáron való 
Pál 


(Az audiovizuális oktatás hatékonysága c. könyvéből vett) szavait: 
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A tanítási-tanulási folyamatban a pedagógusé volt mindig a vezető 
szerep, és az is marad. ... ha a "zámítógépet komplex módon hasz- 
náljuk fel a tanítási-tanulási. folyamatban, akkor az oktatási folya- 
mat hatékonysága jelentősen növelhető. A médiumok számának nö- 
velésével azonban nem növekszik automatikusan a hatékonyság, 
sőt az is lehetséges, hogy egyes témakörökben a hagyományos ?ok- 
tatási. módszer eredményesebb lehet, mint a "számítógép? alkal- 
mazása." 


2. ÖSSZEFOGLALÓ 


. a BASIC programozási nyelvről" 


A magyar közoktatásban a BASIC nyelvű személyi számítógépek 
terjedtek el, ezért e fejezetben szükségesnek tartjuk ennek a nyelvnek 
. összefoglalását. 

A BASIC nyelv megalkotója J. Kemeny magyar származású, ame- 
rikai matematikus (Dortmouth College, USA, 1963.). A BASIC angol 
szó, magyar jelentése alap, így a BASIC nyelv alapnyelvet jelent. Másrészt 
mint a , Beginners All-purpose Symbolic Istruction Code? mozaik 
szava, a , kezdők általános célú szimbolikus nyelv"-ét jelenti. E nyelv 
magas szintű (a változók azonosítóival dolgozik), interaktív (párbeszé- 
des üzemmódú), univerzális (bármely algoritmus megfogalmazható a 
nyelven) és széleskörűen hozzáférhető (a programok lefuttathatók bár- 
mely — BASIC-interpreterrel rendelkező — számítógépen). 

A BASIC nyelvnek nincs általánosan elfogadott szabványa, így az 
egyes gépi reprezentációk igen széles skálájú specialitásokat alkalmaz- 
nak (pl. grafikus-, szín-, hang-kijelzések; perifériák kezelése stb.). Mi 
most csak a nyelv alapértelmezését foglaljuk össze, és ezeket használ- 
juk a további fejezetekben bemutató programjainkhoz is, megjegyezve 
azonban, hogy milyen típusú gépre készültek, s az egyes gépi specialitá- 
sok milyen jobb lehetőséget szolgáltatnak. 


A nyelv szabályaiból a következőket foglaljuk össze: 
1. Adatok, változók, műveletek 

2. Parancsok 

3. Utasítások 

4. Függvények 
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2.1. Adatok, változók, műveletek 


Alapvetően két adattípust különböztetünk meg: a szám típusú 
(numerikus) és a szöveg típusú (alfanumerikus vagy string (— füzér)) 
adatokat. 


A számokat két írásmódban írjuk: 
a) előjel, egészrész, tizedesjel, törtrész 
pl. —13.25 


b) előjel, egészrész, tizedesjel, törtrész, kitevőrész, ahol a kitevőrész 
felbomlik még a kitevőjelre, kitevő előjelre, kitevő alakra, 


pl. —13.25 E— 06 


Megjegyzés: a számokban előfordulható jelek hosszáról, az írás 
engedményeiről és korlátjairól az egyes gépi változatok eltérően gondos- 
kodnak (pl. a számjegyek száma 6 és 15 közötti, a pozitív előjel elhagy- 
ható stb.). 

Szöveg típusú adatoknak az idézőjelek közé zárt tetszőleges ka- 
rakterek sorozatát nevezzük, 


pl. ,,KIS IMRE" 


A karaktersorozat megengedett hossza gépenként változó (általában 16- 
tól 4096-ig). 

Az adattípusoknak megfelelően kétféle változó típusról beszélünk : 
numerikus és string változókról. Megkülönböztetésükre a $ jelet hasz- 
náljuk, így 


A egy numerikus változó, 


A$ egy string változó 
azonosítója. (Azonosítóul betűvel kezdődő és betűvel vagy számjeggyel 
folytatódó karaktersorozat használható, pl. AA, A1 stb. Általában 


a gépi reprezentációk csak az első két karakter szerint különböztetik 
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meg a változók neveit). Mindkét változó típusban megengedett az egy 
és két dimenziós tömbök használata pl. 


7 .V(10), M(5,3) 
illetve 
K$(5), L$(35,5) a 


A numerikus változókra értelmezve vannak: 


az aritmetikai műveletek E ARLÉ 


összeadás jele - 
kivonás "jele — 
szorzás jele :k 
osztás jele / 
1 (vagy kk), 


hatványozás jele 


a relációk 


egyenlő jele s 
kisebb, mint jele z 
nagyobb, mint . jele — 
kisebb, mint 
vagy egyenlő jele - 
nagyobb, mint 

. vagy egyenlő - jele —- 
nem egyenlő jele —-—— 


a logikai műveletek 


és jele AND 
vagy jele OR 
negáció jele NOT . 


A műveletek elvégzési sorrendjéről a zárójel-, a precedencia- és a 
balról-jobbra szabályok gondoskodnak. 

A string változókra az egymás után fűzés (konkatenáció) mellett 
a reláció műveletek vannak definiálva. (A konkatenáció jele általában a 
- jel. ; Ő 


12 


2.2. Parancsok 


A BASIC rendszer vezérlésére — a programok kezelésére, szerkesz- 
tésére, törlésére, tárolására, betöltésére stb. — szolgálnak a BASIC 
parancsok. Ilyenek : 


AUTO — automatikusan előállítja a .soron következő sor- 
. számot. ; 

BREAK — megszakítja a program futását. 

CLEAR  — helyfoglalás szöveg típusú változók részére, vagy 
változók nullázása. 

CLOAD — a programnak mágnesszalagról való beolvasása 

LOAD (idéző jelben tett névvel ellátva, az ilyen nevű program 

. beolvasását jelenti). 

CLOAD? 

TEST 

VERIFY  — a mágnesszalagra írt program ellenőrzése (idézőjel- 
ben tett névvel ellátva, az ilyen nevű program ellen- 
őrzése). 

CLS — törli a képernyőt. 

CONT — a megszakított programfutás folytatása. A program 
onnan indul újra, ahonnan kilépett. Nem funkcionál, 
ha a programon változtatást idézünk elő. 

CSAVE 

SAVE — a program kiírása mágnesszalagra. (Idézőjelben tett 

: névvel ellátva, az ilyen nevű program kiírását je- 
lenti. Egyes gépeknél nevet kötelező használni.) 

DELETE  — programsorok törlése. (A parancsszót a törlendő 


utasítások sorszámai követik: pl. DELETE 120, 
DELETE 120—200, DELETE — 200.) 


EDIT — egy utasítás javítása. (Az utasítás sorszáma követi 
a parancsszót.) 


LIST — a memóriában lévő program képernyőre listázása. 
A következő esetek lehetségesek : ; 
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NEVV 


RE 


RUN 


SYSTEM 


TRON 


TROFF 


LIST a teljes program, 


LIST 20— a 20. sorszámtól, 

LIST —100 . a 100. sorszámig, 

LIST 20—100 a 20. sortól a 100. sorig váló 
fitázés, 


— törli a programot a memóriából, nullázva a változók 
értékét. (Egyes gépeknél a képernyőt is törli.) 

— újra sorszámozza a programot, a következő értelem- 
ben: 


RE a 10. sorszámtól 10-es növek- 
ménnyel, 

RE 200 a 200. sorszámtól 10-es növek- 
ménnyel, 

RE 15,5 a 15. sorszámtól 5-ös növek- 


ménnyel számoz át. 


— a program futtatását teszi lehetővé. Követheti egy 
sorszám, ekkor a futás ettől a sorszámtól indul. 
(A program változói egyidejűleg nullázódnak.) (Ha 
ezt el akarjuk kerülni indítsuk a programot GOTO 
utasítással. (lásd. később)) 

— áttérés gépi szintű programozásra. (Az áttérés után 
— általában — a következő lehetőségek közül vá- 
laszthatunk : 
gépi kódú program betöltése szalagról, 
gépi kódú program végrehajtása, 

BASIC bővítés aktivizálása, 
gépi kódú monitor aktivizálása.) 

— bekapcsolja a nyomkövető üzemmódot. A program 
futása során a képernyőre a végrehajtás sorrendjében 
kiíródnak az utasítások sorszámai. A programok el- 
lenőrzése során alkalmazzuk. 


— kikapcsolja a nyomkövetést. 


Végezetül megjegyezzük, hogy a fenti parancsok többsége utsítás- 
ként is felhasználható, továbbá minden kiadott parancsot egy, a gépen 
lévő kezelő gombbal kell funkcionáltatni, ennek felirata gépenként vál- 
tozó: 


CR 

ENTER 
NEV LINE 
RETURN 


billentyűk egyike. 


2.3. Utasítások 


A BASIC utasítások hatására a gép műveleteket hajt végre. Az uta- 
sítás sorokat sorszámozzuk, ezzel a végrehajtási sorrendet írjuk elő. 
A sorszám bármely pozitív, legfeljebb négyjegyű (gépenként változó) 
egész szám lehet. A sorszámok közötti növekedés tetszőleges. (Általá- 
ban 10-esével sorszámozunk, lehetőséget nyújtva arra, hogy két utasítás 
közé újabbakat szerkeszthessünk.) Egy sorban egy vagy több utasítást 
írhatunk. Utóbbi esetben ezeket kettősponttal kell elválasztani. Egy uta- 
sítássorban maximálisan általában három karaktersor (gépenként kü- 
lönböző számú billentyű leütés: 120, 132, 192 stb.) állhat. 

A programutasításokat a következő csoportokban szokás felosz- 


tani: 
a) műveleti d) ciklus 
b) szervező e) szubrutin 
c) vezérlő f) deklaráló 
g) grafikus 


utasítások. Összefoglalásukat mi is e felosztásban adjuk meg. Az utasí- 
tások definiálásához és értelmezéséhez felhasználjuk az alábbi egyszerű 
jelöléseket, rövidítéseket : 


NAGYBETŰK — BASIC alapszavak (utasításszavak) változatlanul 
írandók 
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kisbetűk — rövidítések vagy fogalmak, helyükre a megfelelő 
információ írandó ; 


ízek — a benne felsoroltak közül kötelező egyet és csak 
egyet megadni 
[ ] — a benne felsoroltak elhagyhatók 
— azelőző[ ]-ben lévők ismétlődhetnek 
s — sorszám 
n — konstans 
sv — skaláris-változó 
v — változó 
r — relációjel 
— kifejezés 
e — elem 
sz — szöveg 
en — szóköz 
u — utasítás 


a) Műveleti utasítás 


[LET] v—k 


az utasítás hatására a változó értéke a kifejezés értékével lesz egyenlő. 


A változó és a kifejezés típusának meg kell egyeznie. 


Pl. 10 A—8 
vagy 10 LET A—8 
vagy 10 A$ — , BASIC? 


b) Szervező utasítások 


INPUT [szi] v [, v] ... 
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az utasítás hatására a gép megállítja a prógram futását, és kérdőjelet ír 
ki. Ekkor be kell írni az input utasításban szereplő változók értékét, 
egymástól vesszővel elválasztva. Ha kevesebb adatot írunk be, mint ahány 
változót az utasításban felsorolunk, a gép ismét kérdőjelet ír ki mind- 
addig, míg az összes változónak értéket nem adtunk; ha pedig többet 
írunk be, a gép a feleslegeset nem veszi figyelembe. 


Pl. 
20 INPUT "A HÁROM OLDAL:?; A, B, C 


vagy 
10 INPUT X, Y (5) 


READ v [, v] ... 
DATA n [ n] ... 


ez az utasítás (utasításcsoport) egy másik lehetőséget ad arra, hogy 
változókhoz megadott értékeket rendeljünk. A programban csak együt- 
tesen használhatók, így minden READ utasításhoz egyértelműen tarto- 
zik egy DATA utasítás (a felírás sorrendjében). Az utasításcsoport ha- 
tására a READ utasítás után felsorolt változók rendre felveszik a DATA 
utasításban szereplő értékeket: 


pl. 
50 READ A, B$, C 
60 DATA 5.7, , OLDAL?, 1 E—2 
hatására I 
A—5.7 B$7-OLDAL C—-—1 E—2 
lesz. 


Az utasításcsoport alkalmazásánál a számítógéprendszer automati- 
kusan hozzárendel a DATA utasításban felsorolt első értékhez egy adat- 
mutatót, amely mindig a következő beolvasandó értéket figyeli, ily mó- 
don a következő példa hatása megegyező a fenti példánkéval: 


5OREADA,B$ C 
60 DATA 5.7 
70 DATA "OLDAL", 1 E—2 
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Az adat-mutató (pointer) mozgatására a BASIC rendszer a követ- 
kező utasítást definiálja : 


RESTORE [5] 


ahol s egy a programban lévő DATA utasítás sorszáma. 

Ha a RESTORE után nem írunk sorszámot, akkor hatására az 
adatmutató a DATA utasitás első adatára áll. 

Ha a RESTORE után egy sorszám áll, akkor a gép az adat-mutatót 
beállítja az ilyen sorszámú DATA utasítás első adatára, ezután az adat- 
bevitel a legközelebbi READ utasításnál itt kezdődik. 


Pl. 10 DATA 1, 2, 3, 4 

20 READX, Y 

30 RESTORE 

40 READZ 

50 RESTORE 70 

60 READU,V 
: 70 DATA 2, 3 
hatására 

X:1,YS2, 21, US2  VS3 

lesz. 


Ha a programban több adatsor van, az adatok számozása folya- 
matos. Ha olyan sorszámú adatra hivatkozunk, amely nem létezik, 
a program futása hibajelzéssel leáll. 


per [rar (j e] [/] 


az utasítás hatására a PRINT után felsorolt elemek értékei jelennek 
meg a képernyőn attól a karakterhelytől kezdve, ahol a helyőr (cursor) 
áll. 
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. . A ; és a , elválasztójelek a kiírás formátumát szabályozzák, a kiírás 
elemei pedig a következők lehetnek : 


üres 
k 
TAB (k) 
97 
Megjegyzések : Í 
1. Ha a PRINT alapszó után nem írunk semmit (a felsorolás" üres); 
hatására egy soremelés történik. 
2. Ha a PRINT utasítás a többi elem valamelyike követi, akkor a ső 
ernyőn megjelenik az elem értéke, pl. : 


legyen 3 
A — —3.5, B$ — "BUDA", 
ekkor £ 

50 PRINT A 

60 PRINT B$ -£ , PEST?" 


hatására a képernyőn kiíródik 


—3.5 
BUDAPEST 


3. Ha a PRINT utasításban a TAB függvényt (tabulátor függvényt) 
használjuk, akkor az ezt követő elem kiírása az aktuális sorban a ki- 
fejezés abszolútértékének megfelelő helyen kezdődik, pl. : 


50 PRINT TAB (20); A 


utasítás hatására a —3.5 kiírása a 20. karakterhelyen kezdődik el. 
4. A kiírás formátumát szabályozhatjuk a ; és , jelekkel. A pontosvessző 
. közvetlen egymásután írást jelent. Ha a kiírandó elem szám, akkor a 
szám kiírása egy szóközzel zárul, pl. : ; 


50 PRINT 1; 2; B$; "PEST" 
hatására a számok a következőképpen íródnak ki 


nu 1 turn 2 nú BUDAPEST 
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Ha a PRINT utasításban vesszőt használunk, akkor a kiírás egy zó- 
nahatár átlépése után kezdődik el. A kiírás tagolhatósága miatt minden 
sor fel van osztva általában négy részre (pl. C16 gépnél 0—9, 10—19, 
20—29, 30—39 karakter-zónákra. A PRIMO gépnél azonban csak 
három zóna van: 0—15, 16—30, 31—42.) 


Pl. : 
50 PRINT A, B$; PEST? 
hatására a —3.5 az első, BUDAPEST pedig a második zónában íródik 
ki. 


A kiírás formátumát szabályozó jelek egy PRINT utasításon belül 
együttesen is használhatók, pl. 


50 PRINT ASS As B$ 4 TAB 2 


(A kiírás formátuma meghatározható még a PRINTUSING uta- 
sítással is. A gépi reprezentációk ezt az utasítást annyira eltérően defi- 
niálják, hogy erre ezen összefoglalásban nem térünk ki.) 

A képernyő egy megadott helyétől való karakteres kiírásra szolgál a 


PRINT 9 mutató , (4) 
Sz 


vagy 
PRINTS$ sorszám, oszlopszám, A 


vagy 
CHAR, sorszám, oszlopszám, "sz" 


utasítás (az első csak a HT-, a második csak a PRIMO-, a harmadik 
csak a C—16 gépen használható). 

1. A HT gépeken a mutató értéke 0 és 1023 közötti egész szám lehet. 
Az utasítás hatására az elem értékének kiírása a mutató által megjelölt 
helytől kezdődik, pl. : k 


50 PRINT 22-x64--10, "HAT" 
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hatására a HAT szöveg a képernyő 138. karakterhelyétől kezdve íródik 
ki. 

2. A PRIMO gépeken a sorszám értéke 0 és 15 közötti, az oszlop- 
szám értéke 0 és 41 közötti egész szám lehet. Az utasítás hatására az 
elem értékének kiírása a sor- és oszlopszám által meghatározott helytől 
kezdődik, pl. : 

50 PRINT $ 2, 10, "HAT?" B 
hatására a HAT szöveg a képernyő 2. sorának 10. oszlopától kezdve író- : 
dik ki. 

3. A C—16 gépeken a sorszám értéke 0 és 24, az oszlopszám értéke 


0 és 39 közötti egész szám lehet. Az utasítás hatására a szöveg kiírása a 
sor- és oszlopszám által meghatározott helytől kezdődik, pl. : 


50 CHAR, 2, 10, "HAT" 


: REM sz 


A REM ark (megjegyzés) a program listát olvasónak szól. Magya- 
rázó szövegek és megjegyzések elhelyezésére szolgál.. Bárhol elhelyez- 
hető a program listán. : 


STOP "sz" 


utasítás hatására a program végrehajtása megszakad, a program vál- 
tozóinak értéke megmarad, CONT paranccsal a program a STOP 
után következő utasítással folytatódik. 


END 


c 


utasítás hatására a program végrehajtása befejeződik, a gép szerkesztő- 
módba áll vissza. Az END utasítás a program logikai végét jelzi. 
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c) Vezérlő utasítások 
: GOTO s 
ÉREZ asd 


utasítás a feltétel nélküli vezérlés átadás, hatására a program a GOTO 
utasításban megadott számú sor végrehajtásával folytatódik. Használ- 
juk arra is, hogy egy programot megadott sorszámú utasítástól kezdve 
újra futtassunk le ezzel a paranccsal, ekkor ugyanis a változók értékei 
a parancs hatására nem változnak meg. 


IF logikai k THEN (ul [ESE(g)] 


utasítás a feltételes vezérlés átadás, hatására, ha a logikai kifejezés értéke 
igaz, akkor a THEN utáni rész hajtódik végre, (ill. a THEN után megadott 
számú sor végrehajtásával folytatódik a program), míg ha hamis, akkor 
az ELSE utáni rész, (ill. az itt megadott számú sorra adódik át a vezérlés). 
Ha az utasítás ELSE részt nem tartalmaz, akkor a feltétel nem teljesülése 
esetén a program a soronkövetkező utasítással folytatódik. A feltételes 
vezérlést átadó utasítások egymásba is ágyazhatók. (A C—16 gépen az 
ELSE részt kettőspont előzi meg.) 
Példák helyesen irt feltételes vezérlés átadása : 


IF Bt2—4XAXC5:50 THEN 20 

IF Az THEN A—A ELSE A— — A 

IF A$-, I? OR A$ — "IGEN" THEN 200 

IF XZYOR X-Z THEN IF Y—Z THEN PRINT Z 
ELSE PRINT Y ELSE PRINT Z 


1 


s 


ON k GOTO s[75] ... 
j HÉÉ SÉRE KSE RRÁTE dstt 0 SS ÉG ! 


utasítás a többirányú elágazást teszi lehetővé, hatására a szám típusú 
kifejezés értékétől függően adódik át a GOTO részben szereplő valame- 
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lyik sorszámú utasításra. A rendszer a kifejezés értékének egészrészét 

: képzi, ha ez 

— negatív vagy 255-nél nagyobb, ekkor futási hiba jön létre, 

— ha 1 és 255 közé eső szám, akkor a GOTO utáni ennyiediknek fel- 
sorolt sorszámon folytatódik a program, 

— ha nulla, vagy nagyobb mint ahány sorszámot megadtunk, akkor a 
végrehajtás a soronkövetkező utasítással folytatódik, 


pi: 
ON K GOTO 100, 200, 300, 400, 500, 600 
hatására, ha 
K-—1 akkor 100, 
K —2 akkor 200, 
K —3 akkor 300, 
K—4 akkor 400, 
K—5 akkor 500, 
K —6 akkor 600 


számú soron folytatódik a program végrehajtása (ezektől eltérő K érték 
esetén a megjegyzésben foglaltak állnak elő). 


d) Ciklus utasítás 


FOR sv—k TO k [STEP k] 
[u] 


NEXT sv 


Egy vagy több utasítás ismételt végrehajtását ciklusnak nevezzük. 
A FOR ... NEXT utasításpárral szervezhetjük meg az ismétlődő utasí- 
tások többszöri végrehajtását. A FOR és NEXT utasítások csak együtt 
alkalmazhatók. Összetartozó FOR, NEXT utasításpárnak azonos a ska- 


23 


lárisváltozója. Ciklust megkezdeni csak FOR urasítással lehet. Meg- 
engedett a ciklusok tetszőleges mélységű (számuk gépenként más és 
más) egymásba skatulyázása. A FOR utasításban szereplő keikejezések 
ceak szám típusúak lehetnek. 

A FOR utáni skalárisváltozót ciklusváltozónak, az egyenlőségjel 
utáni kifejezést kezdőértéknek, a TO utáni kifejezést végértéknek és. a 
STEP utáni kifejezést növekménynek (lépésnek) nevezzük. Ha a növek- 
mény 7-1, akkor a STEP rész elhagyható. 

A ciklus utasítás a következő módon hajtódik végre: a ciklusvál- 
tozó felveszi a kezdőértéket és a ciklus magjában lévő utasítások végre- 
hajtódnak. A NEXT utasítással visszaadódik a vezérlés a FOR utasítás- 
ra, ekkor a ciklusváltozó értéke megnő a növekménnyel és a rendszer 
ellenőrzi, hogy a ciklusváltozó értéke túlhaladta-e a végértéket. Ameny- 
nyiben nem, akkor a ciklusmagban szereplő utasítások újra végrehajtód- 
nak, míg ha igen, akkor a vezérlés a NEXT után soronkövetkező uta- 
sításra adódik (kilépünk a ciklusból). Vegyük észre, hogy a FOR utasí- 
tásban szereplő kifejezések értékeitől függetlenül a rendszer legalább 
egyszer végrehajtja a ciklust! A ciklus magjában a ciklusváltozó értékét 
ne változtassuk meg, és a ciklusból kiugrani sem ajánlatos. Megenge-: 
dett (de nem ajánljuk) a NEXT utasításban a ciklusváltozót elhagyni. 
(A C—16 BASIC-ben feltételes ciklus utasítás is definiált : 


VYHILE 


DO [ Tante] logikai kifejezés I; [u] ...: LOOP ( ) 


Példák: 
1. 10 FORI—-—1 TO100 
TIOPRINT IX 1 
120 NEXT I 


2. 100FORX—1 TO2 STEP.1 
. . VOPRINTX, X12, X13 
. 120 NEXT X 
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3. 100FORT-1 TO 3000 
110 NEXT T 
120 REM ldőhúzás 

4. 100 FOR1I-—1 TO 10 
110 FOR J—1 TO 10 
120 INPUT A (Il, J) 
130 NEXT J 
140 NEXT I 


e) Szubrutin utasítások 


GOSUB s 


utasítás az s sorszámú utasítással kezdődő szubrutin felhívó utasítása, 
hatására a főprogramból a vezérlés átadódik a szubrutin első utasításá- 
ra. A szubrutin utasításainak végrehajtása után a 


RETURN 


utasítással adódik vissza a vezérlés a főprogram GOSUB után soronkö- 
vetkező utasítására. A mai korszerű programozástechnikában elenged- 
hetetlen ezen utasításpár használata: áttekinthetővé, jól tagolttá teszi a 
főprogramokat. 

Megengedett a szubrutinok egymásba skatulyázása, a többirányú 
szubrutin hívás is. pl. : 


1. 100 GOSUB 200 
110 


200 REM 1. SZUBRUTIN 
210 GOSUB 300 — 
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290 RETURN 
300 REM 2. SZUBRUTIN 


390 RETURN 
2. 100ON K GOSUB 200, 300, 400 


f) Deklaráló utasítások 


A tömbök méreteit deklarációs utasítással kell megadnunk a prog- 
ramban való használatuk előtt, e helyfoglalásra szolgál a 


DIM e [, el... 


utasítás, ahol 
— f változónév (t) 
változónév (t [, t] ...) 


alakú lehet és a t index értéke 0 és 255 közötti egész szám (a mátrixok 
elemeinek maximális száma gépenként változó). Példa : 


10 DIM V(9), N$(35), M(24, 19) 


utasítással helyet foglalunk egy V nevű 10 elemű szám típusú, egy N 
nevű 36 elemű szöveg típusú vektor és egy M nevű 25 x20 elemű szám 
típusú mátrix részére. 

Az egyes gépirendszerek a tömbök méretére alapértelmezés szerinti 
helyfoglalást is biztosítanak (általában 0£t£10). A tömbök méreteit 
a program futása során nem lehet újra definiálni. 

Egyváltozós függvények definiálására és programban való felhasz- 
nálására szolgál (csak a C—16) gépen a 


DEFFN változónév (sv) — k 
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utasítás, ahol k csak szám típusú kifejezés lehet. 
DEFFN F (X) — X12 -- ABS (X) 


utasítás az f(x) — x?--]xi függvényt definiálja a számítógép számára. - 
Ezen deklaráló utasítás után a programban a függvényt a következő 
módon használhatjuk : 


Y — FNF(—3.5) 


g) Grafikus utasítások 


A számítógépek karakterkészletében lévő grafikus jelek lehetőséget 
adnak arra, hogy felhasználásukkal ábrákat, alakzatokat rajzolhassunk 
a képernyő tetszőleges helyére. 

A BASIC nyelv ezeken kívül grafikus utasításokat is definiál a kép- 
ernyőre való rajzolás elősegítésére. Ezek az utasítások színtaktikailag a 
HT és PRIMO gépeken megegyezőek : 


SET (oszlopszám, sorszám) 
RESET (oszlopszám, sorszám) 


A SET utasítás a képernyő adott sor- és oszlopszámú helyét kivi- 
lágítja, míg a RESET utasítás a kivilágítást törli. A képernyő grafikus 
szempontból a következő módon van felosztva : 


HT gépen: 


0 £ sorszám 47 
0 £ oszlopszám E 127, 


PRIMO gépen: 


0 £ sorszám £ 191 
0 £ oszlopszám —£ 255. 
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Példa : 


50FOR Y— 0 TO255 
60 SET (Y, 96) 
70 NEXTY 


utasítások a végrehajtás során a PRIMO képernyőjének 96. sorában 
(közepén) minden pontot kivilágít (vízszintes egyenest rajzol), míg az 


50 FOR X-0 TO 47 
60 SET (64, X) 
70 NEXT X 
utasítások hatására a HT gép képernyőjének 64. oszlopában minden 
pont megvilágítódik (függőleges egyenest rajzol). 
A C—16 gépek grafikus lehetőségei sokkal szélesebbek, de bizonyos 
hátránnyal is járnak. Így a grafikus utasításoknak csak legegyszerűbb 


alakjait soroljuk fel. Mindenekelőtt megjegyezzük, hogy a képernyő a 
következő módon van felolsztva : 


0 £ sorszám s 199 
és 08 oszlopszám —£ 319, 


azaz 200 X320 pont kivilágítására van lehetőség. 
A grafikus területet a 


GRAPHIC n 


paranccsal, illetve utasítással lehet kijelölni, ahol n értéke 0, 1, 2, 3, 4 
lehet. Ha 


n — 0 akkor normál színű, karakteres, 

n — 1 akkor normál szinű, grafikus, 

n — 2 akkor normál szinű, grafikus és karakteres, 
n — 3 akkor többszinű, grafikus 

n — 4 akkor többszinű, grafikus és karakteres . 
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képernyő jön létre. A grafikus és karakteres képernyő esetén a képernyő 
alsó öt sorában lehet a megjelenítés karakteres (természetesen ekkor 
0z sorszám 159 lehet). 

A grafikus terület kijelölése után lehetőség van pontok, szakaszok, 
téglalapok és ellipszisek rajzolására, ezek kitöltésére. Erre szolgálnak a 
következő utasítások : 


DRAVV [szín], 01, s1 [TO 02, s2] ... 


ahol a szín a rajzolásra kiválasztott szín típusa, 01 és 02 az oszlopok, 
s1 és 52 a sorok koordinátái. 


Például az 


50 DRAW, 20, 10, TO 100, 10 


utasítás hatására a képernyő 10. sorában egy , vízszintes? szakasz raj- 
zolódik ki. (Ha a TO rész elmarad, akkor pl. a 10. sor 20. oszlopában 
lévő pont világítódik ki.) 


BOX [szín] , 01, s1, 02, s2 


utasítás egy téglalapot rajzol úgy, hogy a téglalap bal felső csúcsának, 
helye az ol, s1 koordinátájú pont, míg 02, s2 a jobb alsó csúcsé. 


CIRCLE [szín], o, s, k, n 


utasítás egy ellipszist rajzol az o, s koordinátájú középponttal és k kis- 
illetve n nagy tengely hosszal. Például az 


50 CIRCLE, 160, 100, 20, 20 
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utasítás egy kört rajzol a képernyő közepére. 
PAINT [szín], o, s 


utasítással egy ábrát, alakzatot festhetünk be (tölthetünk ki), ahol o, 
s az alakzat egy belső pontjának koordinátái, pl. : 


50 CIRCLE, 160, 100, 20, 20. 
PAINT, 160 100 


utasításokkal a fentiekben megrajzolt kört tölthetjük ki. 

Megjegyezzük, hogy a C—16 gép igen jó grafikus lehetőségeit le- 
rontja az a tény, hogy a grafikus terület nagy mértékben lecsökkenti a 
BASIC munkaterületet. 


2.4. Függvények 
: A programozási gyakorlatban bizonyos függvényeket a rendszerbe 


épített rutin segítségével lehet kiszámítani nevükre való hivatkozással. 
A függvényekre való hivatkozás formai szabálya 


függvény-név (k [/ k] ... ) 


ahol a kifejezések szám-, ill. szöveg típusúak lehetnek. Azok a függvé- 
nyek, melyek értékei szövegtípusúak nevük után a § jelet is tartálmazzák. 
A BASIC-interpreter csak ezeknél enged meg több változó használatát, 
így a többi függvény csak egyváltozós lehet. 

A beépített függvények közül felsoroljuk a leggyakrabban használa- 
tosakat (csak nevükkel és funkciójukkal): 


ABS — abszolút érték függvény 
ASC — az argumentumban lévő string kifejezés első karakterének 
ASCII kódját képzi 
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CHR$ 


COS 
EXP 
FIX 
INT 
LEFT$ 


LEN 
LOG 
MID$ 


POINT 


RIGHTS 


RND 
SGN 
SIN 
SOR 
STR$ 


TAB 
TAN 
VAL 


képzi az argumentumban megadott kifejezés értékének 

megfelelő ASCII kódszám karakterét 

koszinusz függvény 

exponenciális függvény (e alapú) 

szám típusú kifejezés értékének egész számra csonkítása 

szám típusú kifejezés értékének egész részét képzi 

szöveg típusú kifejezés értékének bal oldalát választja le 
(kétváltozós) 

szöveg típusú kifejezés hosszát képzi 

logaritmus függvény (e alapú) 

szöveg típusú kifejezés értékének középső részét választja 

le (háromváltozós) 

meghatározza, hogy a grafikus képernyő egy pontja vi- 

lágít-e (kétváltozós logikai értékű függvény. Ha a pont 

világít értéke —1, ha nem 0) 

szöveg típusú kifejezés értékének jobb oldalát választja le 

kétváltozós I 

véletlenszám generáló függvény 

előjel függvény 

szinusz függvény 

négyzetgyök függvény i 

szám-típusú kifejezés értékének szöveg típusú alakját 

képzi 

a kiírási pozíciót meghatározó függvény 

tangenes függvény 

szöveg típusú kifejezés értékének szám típusú alakját 

képzi 
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3. SZÁMÍTÓGÉP A TANULÓI MUNKÁBAN 


Ebben a fejezetben olyan feladatokat mutatunk be, amelyek alkal- 
masak arra, hogy általános iskolás gyerekek számítógépes programot ír- 
janak megoldásukra. Hasznos ez olyan szempontból is, hogy látszólag 
nagyon különböző feladatok megoldásában felfedeztessük a hasonló- 
ságokat, az azonos algoritmusokat. —— 

Legtöbb programot általánosan, paraméterekkel írtuk fel, a gyere- 
kekkel azonban célszerű először konkrét eseteket megbeszélni, adott 
számokkal írni fel a programot, s ha ez már megalapozott, csak akkor 
általánosítani. 


3.1. Halmazelméleti feladatok 


1. Határozzuk meg adott véges számhalmazok unióját, metszetét, 
különbségét! Az egyszerűség kedvéért a halmazok elemei legyenek ter- 
mészetes számok. A halmazok elemeit az A ( ), illetve B ( ) tömbben tá- 
roljuk. Az elemek száma N, illetve M. A megfelelő halmazművelet ered- 
ményeként kapott elemeket a C ( ) tömbben helyezzük el. ! 

A C-AUB meghatározásánál az A halmaz elemeit már a beolva- 
sásnál C ( ) tömbben is tároljuk, és ehhez hozzávesszük B halmaz azon 
elemeit, amelyek az A-nak nem elemei. 

Érdemes a képernyőn kiíratni az A és B halmazok elemeit is. Ha az 
elemek száma nem túl nagy, akkor mindhárom halmaz elemei egyszerre 
a képernyőre férnek. A C halmaz elemeit meg is számoljuk, s ezt is ki- 
íratjuk. 

Folyamatábránk az 1. ábra. 
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be: NM, A( ), B( ) 


KzN 

ts 

d 6 

i 
A(J) - BI) 
n 
Jz- J4r1 
n 
La SN K:-K:1 


C(K)-BI(I) 


I- I41 


n 
zo 
i 


5 PRINT "KÉT HALMAZ UNIÓJÁNAK MEGHATÁROZÁSA" 
10 INPUT "A HALMAZ ELEMEINEK SZÁMA"; N 

20 INPUT "B HALMAZ ELEMEINEK SZÁMA"; M 

30 DIM A(N), B(M) C(N-4-M) 

40 PRINT "AZ A HALMAZ ELEMEIT KÉREM!" 

50 FOR 1—1 TO N: INPUT A(I):C(D—A(I):NEXT I 

60 PRINT "A B HALMAZ ELEMEIT KÉREM!" 


I. ábra 
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70 FOR 1—1 TO M:INPUT B(I):NEXT 1! 

80 CLS:PRINT , AZ A HALMAZ ELEMEI: . 

90 FOR 1—1 TO N:PRINT A(I); :NEXT I 
100 PRINT :PRINT ,A B HALMAZ ELEMEI:" 
110 FOR 1—1 TO M:PRINT B(l); :NEXT I! 
120 PRINT :KXAN 

130 FOR 1—1 TOM 

140 J—1 

150 IF A(])—B(I) THEN 180 

160 J—]-4-1:IF JZ—N THEN 150 

170 KMK-1: C(K) — B(I) 

180 NEXTI 

190 PRINT "AZ UNIÓNAK"? ;K; "ELEME VAN, A KÖVETKEZŐK:" 
200 FOR 1-1 TO K: PRINT C(l); :NEXT I 
210 END 


A C-ANB meghatározásánál az A halmaz elemeit rendre össze- 
hasonlítjuk a B halmaz elemeivel, és ha valahol megegyezést találunk, 
azt az elemet beírjuk a C ( ) tömbbe. A C ( ) tömb elemeit itt is számol- 
juk. A folyamatábra a 2. ábra. 

A különbség halmaznál C—-AM B-nél pedig az A halmaz azon ele- 
meit tesszük C-be, amelyek nincsenek benne B-ben. 3. ábra. 

Ha ezeket szubrutinokként írjuk fel, könnyen szerkeszthetünk olyan 
programot, amely kívánság szerint határozza meg AUB-t, ANB-t, 
AM B-t vagy akár mindegyiket. A főprogram álljon a feladat kiírásából, 
az adatok beolvasásából, valamint a választási lehetőségek megadásából. 


10 CLS: PRINT "KÉT HALMAZ UNIÓJÁNAK, METSZETÉNEK, 
KÜLÖNBSÉGÉNEK MEGHATÁROZÁSA (AZ ELEMEK TERMÉSZE- 
TES SZÁMOK.)" 
20 INPUT "AZ EGYIK (A) HALMAZ ELEMEINEK SZÁMA"; N 
30 INPUT "A MÁSIK (B) HALMAZ ELEMEINEK SZÁMA"; M 
40 DIM A(N), B(M) C(N--M) 
50 PRINT "KÉREM AZ A HALMAZ ELEMEIT!" 
60 FORI—-1 TO N:INPUT A(I):NEXT I 
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2. ábra 


70 PRINT "KÉREM A B HALMAZ ELEMEIT!" 

80 FOR 1—1 TO M:INPUT B(I):NEXT I 

90 CLS: PRINT "MIT HATÁROZZAK MEG?" 

100 PRINT "1. A ÉS B UNIÓJÁT?" 

110 PRINT "2. A ÉS B METSZETÉT?" í ; 
120 PRINT "3. A ÉS B KÜLÖNBSÉGÉT? (ILYEN SORRENDBEN)" 
130 PRINT "4. VAGY BEFEJEZZÜK?" 

140 PRINT "ÍRD BE A MEGFELELŐ SZÁMOT!" 

150 INPUT V 

160 IF V1 OR V-.4 THEN 90 

170 IF V-4 THEN END 

180 CLS:PRINT "AZ A HALMAZ ELEMEI:?" 

190 FOR 1—h1 TO N:PRINT A(I): :NEXT I 
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3. ábra 


200 PRINT :PRINT "A B HALMAZ ELEMEI:" 

210 FOR 1—1 TO M:PRINT B(l); :NEXT I 

220 PRINT KE 

230 ON V GOSUB 500, 700, 900 

240 PRINT "HA DOLGOZHATUNK TOVÁBB ÉRINTS MEG EGY 
BILLENTYŰT!" 

250 IF INKEL$-—"" THEN 250 

260 GOTO 90 

500 REM XX UNIÓ xx 

510 FOR 1—1 TO N:C()—A(D):NEXT I:KkN 
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570 FOR 1h1 TOM 
530 )j— 1 

540 IF A(J)— B(I) THEN 570 

550]—J-F1: IF JZ —N THEN 540 

560 K — K--1:C(K) — B(l) 

570 NEXT ! k j 

580 PRINT "AZ UNIÓNAK"; K; "ELEME VAN." 
590 FOR 1—1 TO K:PRINT C(I);: NEXT I 
600 PRINT 

610 RETURN 

700 REM :k METSZET -k 

7100 K-0 

720 FORI-1 TON 

730 ]—1 

740 IF A(l) — B(J) THEN K — K--1:C(K) — A(I) : GOTO 760 
750]—]J-H1:IF Jaz — M THEN 740 

760 NEXTI 

770 PRINT ?A METSZETNEK" ; K; "ELEME VAN"? 
775 IFK— 0 THEN 800 

780 FORI— 1 TOK : PRINT C(l);:NEXT I 
790 PRINT 

800 RETURN 

900 REM x KÜLÖNBSÉG xx 

910K—-0 

920FOR 1-1 TON 

930]— 1 

940 IF A(I) — B(]J) THEN 970 

950] —]J-B1:IF J— — M THEN 940 

960 K — K--1 : C(K) — A(I) 

970 NEXT I 

980 PRINT "A ÉS B HALMAZ KÜLÖNBSÉGE" ; K; "ELEMBŐL ÁLL." 
985 IF K—0 THEN 1010 

990FOR 1—1 TO K: PRINT . C(I); : NEXT I 
1000 PRINT 

1010 RETURN 
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A kiíratások előtt a 775 és 985 utasításokkal átugorjuk a kiíratási 
ciklusokat, ha a halmaznak 0 eleme van. (A BASIC ciklus egyszer min- 
denképpen végrehajtódik, s a gép kiírná, amit éppen C (1)-ben talál, 
ha ezekről az átugrásokról nem gondoskodnánk!) : 

2. Képezhetjük az A és B halmazok Descartes szorzatát, vagyis 
mindazon rendezett elempárok halmazát, ahol az első komponens A-ból 
a második B-ből való. 


A XB — ((X, VJJXEA A YEB) 


Vegyük sorba az A halmaz elemeit első komponensnek, s minden 
A halmazbeli elem esetén a második komponenst futtassuk végig a B 
halmaz elemein! 

A halmazok elemeinek beolvasása hasonló, mint az előbb. Az algo- 
ritmus lényegi részét a 4. ábra szemlélteti. Az elempárokat most nem 
tároljuk, csak kiíratjuk a képernyőre. Az A halmaz N, a B halmaz: 
M elemű. 


1000 FOR 1-1 TON 
1010 FOR J— 1 TO M 

1020 PRINT P(SAN "BIN 
1030 NEXT J t 
1040 NEXT I 


Programrészletünket beolvasással és a kiíratás jobb szervezésével 
(itt zónázott formátum) egészíthetjük ki, vagy más programokban szub- 
rutinként használhatjuk. 

Itt említhetjük meg a következő feladatot. 

3. Adott egy táblázat összetartozó (X, Y) értékpárokkal. Állapít- 
suk meg, kifejezhet-e függvénykapcsolatot a táblázat! Nem kell mást 
tennünk, mint végigvizsgálni, hogy az egyes X értékek előfordulnak-e 
a táblázat további elemeként, s ha igen, a hozzárendelt Y érték ugyan- 
az-e. Ha nem, a táblázat nem fejezhet ki függvénykapcsolatot. 

Az X értékeket egy X ( ) tömbben az Y értékeket egy Y ( ) tömb- 
ben tároljuk, az értékpárok összetartozó tagjait azonos indexszel. 
A beolvasó programrészletet itt sem írjuk fel, mivel teljesen hasonló mint 
az előző feladatoknál. A folyamatábra az 5. ábra. 
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ki: A(I), B(J) 


5. ábra 


1000 FOR 1—1 TO N—1 

1010 FOR JÁMAI41 TON 

1020 IF X(I) — X(JJTHEN IF Y(I)— Y(J) THEN 1030 ELSE PRINT 
"AZ ADOTT TÁBLÁZAT NEM FÜGGVÉNYKAPCSOLAT.?" 
END 

1030 NEXT J 

1040 NEXT I 

1050 PRINT "AZ ADOTT TÁBLÁZAT FÜGGVÉNYKAPCSOLAT." 


4. A halmazokkal kapcsolatos feladatoknál azonnal felvetődik, 
sokszor hasznos is lenne, ha az elemeket valamilyen szempont szerint 
rendeznénk. (Pl. növekvő vagy csökkenő sorrendbe, ha azok numerikus 
értékek, vagy alfabetikus sorrendbe, ha azok szövegek.) 

Sokféle rendezési algoritmus ismeretes. Mi itt ezek közül kettőt 
mutatunk be. Rendezzünk pl. növekvő sorrendbe. Az N elemet (számot) — 
egy A() tömbbe olvassuk be, s a rendezés után is itt tároljuk. 

Az első algoritmus lényege a következő. Megkeressük a legkisebb 
elemet (M), és ezt felcseréljük az elsővel. (A legkisebb elem kiválasztását 
érdemes megelőzően megoldani a gyerekekkel, s ezt fejleszteni tovább 
rendezéssé.) Ezután ezt megismételjük, csak most N—1 elemre, mivel 
A(2)-től A(N)-ig tekintjük az elemeket, s ezek közül a legkisebbet 
A(29-vel cseréljük fel. Csökkenő elemszámmal folytatjuk ezt mindaddig, 
míg végül az A(N—1)-et és az A(N)-et hasonlítjuk össze, és a megfelelő 
sorrendben tároljuk. A beolvasás után ki is íratjuk az elemeket, így az 
eredeti és a rendezett adatok is láthatók a képernyőn. Folyamatábránk 
a 6. ábra. 


10 INPUT "ELEMEK SZÁMA" ; N 

20 DIM A(N) 

30 FORI—1 TO N: INPUT  A(I): NEXT I 

40 CLS: FOR 1—1 TO N: PRINT A(I); :NEXT I 
50 PRINT 

60 FOR JA 1 TO N—1 

70 M — A(J) 5 

80 FOR 1—]-41 TON 

90 IF M- — A(I) THEN 110 
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100 S — M: M — A(I): A() — S 
110 NEXT I 
120 A(J) — M 
130 NEXT J 
4140 FOR 1—1 TO N:PRINT A(I); :NEXT ! 


150 END 


A másik rendezési algoritmusunk buborék rendezés néven ismeretes. 
Az elemeket most is az A ( ) tömbben tároljuk. Az első elemtől indulva 
az egymás melletti elemeket összehasonlítjuk, s ha az előbb lévő a na- 
gyobb, felcseréljük azokat, s így megyünk tovább. Mire a tömb végére 


[e N, A( ) j 


6. ábra 
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7. ábra 


érünk, a legnagyobb elem az A(N)-be kerül. (Felszállt, mint a buborék.) 
Ezután megismételjük ezt az eljárást az első N—1 elemre stb. (Ennél az 
algoritmusnál is N—1-szer kell ismételni.) Lásd a 7. ábra! 

Mivel a 10—50 sorok ugyanazok mint az előbbiek, ezért a programot 
csak a 60. sortól írjuk fel. 


60 FOR JÁ 1 TO.N—1 

70 FOR 1-1 TO N-—J ka 

80 IF. A(I)— — A(I--1) THEN 100 

90 S — A(I): A(I) — A(I-E1): A(I--1) — S 

100 NEXT I 

110 NEXT J 

120 FOR 1-1 TON: PRINT A(I); : NEXT I 
130 END i 
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Ha névsort akarunk készíteni, a fenti programokon csak annyit kell 
változtatni, hogy mindazon azonosítók mellé be kell írni a $ jelet, ame- 
lyekbe a neveket írjuk. (A$, S$, illetve az előző programnál M$). Ezen- 
kívül gondoskodni kell elegendő tárolóhelyről a szövegek számára. 
Ezért a programot pl. CLEAR 1000 utasítással célszerű kezdeni. 


3.2. Kombinatorikai alkalmazások 


Egy másik gazdag témakör ahonnan alkalmas feladatokat választ- 
hatnunk a kombinatorika. A számítógép lehetőségeit kihasználva álta- 
lában nemcsak a lehetséges megoldások számát határozzuk meg, hanem 
kiírjuk a megoldásokat is. Kezdjük a következő egyszerű feladattal. 

1. Egy hegy csúcsára öt út vezet. Hányféle útvonal közül választ- 
hat egy turista, ha felmászik a hegyre, majd lejön róla? Hány lehetősége 
van, ha nem akar ugyanazon az úton lejönni, mint amelyiken felment? 

Számozzuk meg az utakat (1—5). Így a feladatot úgy fogalmazhat- 
juk, hogy rendezett számpárokat kell képezni, ahol az első komponens 
a felfelé, a második a lefelé vezető út sorszáma. Vegyük észre, hogy 
így a feladatot visszavezettük egy már megoldott problémára, az 
A — (1, 2, 3, 4,5) halmaznak (utak sorszámainak halmaza) kell képezni 
az önmagával való Descartes szorzatát. 

Ha nem akarunk ugyanazon az úton lejönni, mint amelyiken fel- 
mentünk, akkor az azonos komponensű számpárokat el kell hagyni a 
fenti halmazból. (A géppel nem is képeztetjük.) 

Mivel a feladat első részét már megoldottuk, ezért csak a második 
rész megoldására vonatkozó programot írjuk fel. A következőkben a 
folyamatábrák rajzolásától már eltekintünk. 


2 CLS: S-0 

5 PRINT ?AZ ELSŐ SZÁM A FELFELÉ, A MÁSODIK A LEFELÉ VEZE 
TŐ ÚT SORSZÁMA" 

1 FOR 1—1 TO5 

20 FOR JMA 1 TO5 

30IF 1—] THEN 50 
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40 PRINT P(Csapög Jo): Sz5-1 

50 NEXT J 

60 NEXT I 

70 PRINT :PRINT ?AZ ÖSSZES LEHETŐSÉGEK SZÁMA:"; S$ 
80 END i 


2. Ugyanez a probléma a következő feladatnál. 

Hány szótár kell ahhoz, hogy közvetlenül tudjunk szavakat fordítani 
az orosz, angol, német, francia, spanyol nyelvek bármelyikéről e nyel- 
vek bármelyikére? (Vagy: az A, B, C, D, E, F, G betűkártyáink vannak. 
Hányféleképpen tudunk két betűkártyát kiválasztani, ha a sorrend is 
számít?) 

Annyit változtathatunk az előző programon, hogy ne számpárokat 
írassunk ki, hanem ango . szópárokat a szó- 
táraknak megfelelően. Ezért tároljuk A$( ) tömbben a megadott nyel- 
veket. 


A$(1—7OROSZ?" ... A$(59— "SPANYOL? 
A. kiíratásnál pedig I és J helyett A$(D-t, illetve A$(])-t írassunk ki. 


3. Csak kicsit más az alábbi feladat. 

Hencidából Piripócsra 3 út vezet. Piripócsról Kukutyinba 2, onnan 
Boncidába 4. Hányféleképpen juthatunk el Hencidából Boncidába Piri- 
. pócson és Kukutyinon át? (8. ábra) 

Számozzuk meg az egyes helységek közötti utakat! fás rendezett szám- 
hármasokat kell képezni, ahol a komponensek más-más halmazból valók. 


(1, 2, 3) (1, 2) (1, 2, 3, 44 az utak halmazai. 


8. ábra 
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(Tulajdonképpen a fenti 3 halmaznak a felírás sorrendjében vett Des- 
cartes szorzatáról van szó.) 

Itt természetesen három egymásba ágyazott ciklusra van szükség. Az 
55-ös sorral pedig azt érjük el, hogy a kiírás két oszlopba történjen. 


20 FOR 1—1TO3 

30 FOR ]J—1 TO2 

40 FOR K—1TO 4 ; ő 

50 PRINT TAB(P);: PCP 9] 995 K;")": §-S-71 


55 IF S- 12 THEN PRINTS$0, 20,; : P — 20 
60 NEXT K 
70 NEXT J 
80 NEXT I 


90 PRINT :PRINT "A KÜLÖNBÖZŐ UTAK SZÁMA:?"; S 
100 END 


Teljesen hasonlóan oldhatunk meg más variációs problémákat is. 

4. Nem sokat kell változtatni az előző algoritmuson, ha valamilyen 
halmazból kiválasztok elemeket, de az elemek sorrendje nem számít. 
(Részhalmazokat képezek — ismétlés nélküli kombinációkat.) 

Pl. Egy tíztagú őrsből kéttagú küldöttséget választanak. ÉL végig 
képpen tehetik ezt meg? 

Két lehetőség közül választhatunk a feladat megoldásánál aszerint, 
hogy milyen ismeretanyag birtokában akarjuk a feladatot megoldani. 

1— Az egyszerűbb: az őrs tagjait megszámozzuk, és így hivatkozunk 
rájuk. 

. 2— Az őrs tagjainak nevét egy A$( ) tömbben tároljuk, és ezzel 
dolgozunk. 

A megoldási algoritmus természetesen mindkét esetben ugyanaz. 
Az első gyerekhez a másodiktól kezdődően választhatunk párt. A máso- 
dik gyereknek a harmadiktól ... a kilencediknek pedig ezek után csak a 
tizedik lehet a párja. A program felírásánál a második Jeletőséget 1 tar- 
tottuk szem előtt. 
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10 DIM A$(10) 

20 FOR 1—1 TO 10: INPUT A$I): NEXT I 
30 FOR 1—m1 TO 9 

40 FOR J— 1341 TO 10 

50 PRINT A$(D;" "; A$(J) 

60 NEXT J 

70 NEXT I 

80 END 


5. Más jellegű problémát vet fel a most ismertetendő feladat. 
Hányféleképpen olvashatjuk le az ábráról a BALAMBÉR szót, ha 
csak jobbra vagy lefelé haladhatunk? 


BALAMB 
ALAMBÉ 
LAMBÉR 


Összesen 7-szer döntünk, hogy jobbra vagy lefelé haladjunk. A 7 
alkalomból 2-szer kell a lefelé utat, 5-ször a jobbra haladást választani. 
Minden olvasásnak megfeleltethetünk egy öt O-t és két 1-est tartalmazó 
sorozatot, ahol az 1-es a lefelé, a 0 a jobbra haladást reprezentálja. Elő- 
ször tegyük az egyik 1-est az első helyre, a másikat pedig sorban a 2., 
azután a 3. ... 7. helyre. (Ez lesz a belső ciklus.) Ezután az első 1-est te- 
gyük a 2. helyre és a másik 1-est helyezzük a 3. ... 7. helyre stb. Addig 
folytatjuk, amíg az első 1-es a 6. helyen lesz, míg a másik a 7. helyre ke- 
rül. (Az első 1-es helyének megváltoztatását végzi a külső ciklus.) A ki- 
íratásnál azt kell figyelni, hogy a sorozatban hol van 1-es, mert akkor egy 
sorral lejjebb kell folytatni, és nem kell jobra lépni. 


5 CLS 

10 A$ — "BALAMBÉR": S — 0: PRINT CHR$(2) 
20 FOR 1—1 TOZ: M(I)— 0: NEXT I 

30 FOR JÁA 1 TO6 : 


40 M(J) — 1 
50 FOR 1—]J41 TO 7 


70 FOR K—1 TO7 
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80 IF  M(K)— 1 THEN PRINT  MID$(A$, K, 1):. E —E-1: PRI 
NT TAB(K—E); ELSE PRINT MID$(A$, K, 1); 

90 NEXT K 

100 PRINT  RIGHT$(A$, 1) 

110. M(I) — 0: PRINT : §— S-F1 

120 FOR L—1 TO500: NEXT L 

130 NEXT I! 

140 M(J) — 0 

150 NEXT J 

160 PRINT "AZ ÖSSZES LEHETŐSÉGEK SZÁMA:?; S 

170 GOTO 170 


A szöveg megfelelő karakterének leválasztása a MID$ és a RIGHTS 
függvényekkel történik. A CHR$(2) kóddal nyújtott karakteres írás- 
módot alkalmazunk, így az egyes kiíratások jobban olvashatók a kép- 
ernyőn. A 120-as sorral szünetet tartunk. 

6. Ugyanezt az algoritmust alkalmazhatjuk a következő feladat 
megoldásánál. 

Ezek a számkártyáink vannak : 1, 1, 1, 1, 1, 2, 2. Hány különböző 
hétjegyű számot tudunk kirakni? 3 

Az M tömbbe nem 0-kat és 1-eseket kell tennünk, hanem öt 1-est 
és két 2-est, és kiíratni nem A$-t kell, hanem az M tömb elemeit, és ezeket 
egymás mellé. 


3.3. Számelméleti problémák 


Nagy választási lehetőségünk van a számelmélet problémakörében 
is. Nézzünk először a prímszámokkal kapcsolatos néhány alapvető fel- 
adatot! 

1. Keressük meg az első N (pl. 100) természetes szám közül a prím- 
számokat az Eratoszthenészi szita segítségével! 

Képzeljük el felsorolva 1-től N-ig a természetes számokat Fedjük 
le a 2 többszöröseit! (A 2-t nem!) Ezután a 3 többszöröseit. (A 3-t nem!) 
A 4 többszörösei már lefedettek. Ezután lefedjük az 5 többszöröseit. 
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A következő le nem fedett a 7. Ezt folytatjuk VN-ig. Amelyik ezek után 
nincs lefedve, az 1-nek és önmagának többszöröse, tehát prímszám. 

A természetes számokat egy A( ) tömbben tároljuk. A lefedésnek 
feleltessük meg a megfelelő tömbelem nullázását. 

Az algoritmust két egymásba ágyazott ciklussal valósíthatjuk meg. 
A külső ciklus veszi sorban (a második elemtől kezdve) az A( ) tömb ele- 
meit VN-ig. (Ha a gyerekekkel dolgozunk, más, ennél nagyobb végérté- 
ket is választhatunk.) Ha valamelyik A(l) elem nem 0 (nincs lefedve), 
akkor indul a belső ciklus, amely kinulláz minden I-edik elemet az A(l) 
elem után. Végül megvizsgáljuk az így kapott A( ) tömböt, és a nem 0 
elemeket (az 1 kivételével) kiíratjuk. I 

Tulajdonképpen felesleges az A ( ) tömbben a természetes számokat 
tárolni, hiszen ezek pontosan a tömbelemek indexeivel egyenlőek. Ele- 
gendő lenne, ha minden elemnek 1 értéket adnánk, és a kiíratásnál, ha 
a tömbelem 1, akkor az indexét kellen kiíratni. Ez azonban semmivel 
sem kevesebb munka, ellenben az előző a gyerekek számára szemléle- 
tesebb. (Rövidíthetünk viszont, ha az eredeti állapotú nullázott A( ) 
tömbbel indulunk, s a lefedésnek az 1-est feleltetjük meg. Ez azon- 
ban kevésbé természetes.) 


5 CLS 
. 10 INPUT "MEDDIG ÍRJAM KI A PRÍMSZÁMOKAT?"; NN 
20 DIM A(N): V — SOR(N) 
30 FOR 1—1 TON: A(I)—I: NEXT I 
40 FOR 152 TÖV 
50 IF A()—0 THEN 90 
60 FOR J—A2xI TO N STEP I 
70 A(J)— 0 
"80 NEXT J 
90 NEXT I 
100 FOR 1-2 TON 
110 1F A()—0O THEN 130 
120 PRINT A(I); 
130 NEXT I 
140 END 
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2. Hasonlóan oldhatunk meg egy érdekes általános iskolai feladatot 
is. Rámutathatunk itt arra is, hogy a számítógépnek lehetősége van ,,el- 
játszani" a feladatot. 

Egy szultán 100 cellába bezárat egy-egy rabot. A cellákon kétállású 
zárak vannak, forgatással felváltva nyílnak, illetve záródnak. A rabok 
nem veszik észre, ha nyitják vagy zárják a cellákat. A száz rab bezárását 
követően a szultán meggondolja magát, és végigszalaszt egy őrt, hogy 
minden záron fordítson egyet, majd újra meggondolja magát, és elküld 
egy másik őrt, hogy minden második záron forditson egyet, majd egy 
harmadik őrt, hogy minden harmadik záron fordítson egyet, és így to- 
vább. A századik őrt azzal a paranccsal küldi, hogy a századik záron for- 
dítson egyet. Ezután elrendeli, hogy akinek a cellája nyitva van, azt bo- 
csássák szabadon. Hány rab szabadul ki, és mely cellákból? 

A cellákat reprezentálja egy C(100) tömb. A zárt állapotnak feleljen 
meg az, hogy a tömbelem 1, a nyitottnak pedig az, hogy a tömbelem 
—1. A záron való fordítást így —1-gyel való szorzással valósíthatjuk meg. 
Itt is két ciklussal oldhatjuk meg az algoritmust. A külső ciklus mutatja, 
hogy hányadik őr van úton, a belső pedig, hogy éppen melyik cellának 
a zárján fordít egyet. Egy egyszerű, de ügyes képernyőre írással szemléle- 
tessé is tehetjük. A cellák sorszámait 10 x10-es elrendezésben írassuk ki 
a képernyőre. (Így pl. a 26. cella a képernyőn a 3. sor 6. oszlopában van.) 
Ha a cella be van zárva, írjuk felül a sorszámot valamilyen karakterrel. 
(Az alábbi programban -— — jellel.) Így a képernyőn a számok a nyitott 
cellák sorszámait jelentik. Egy lehetséges megvalósítás a következő prog- 
ram: 


10 CLS: DIÍM C(100): PRINT CHRS$(6) 

20 FOR J— 1 TO 100: C(]J)h—m 1: GOSU 100: NEXTJ 
30 FOR 1—1 TO 100 

35 PRINT$12, 14, I; ". ŐR"; 

40 FOR JÁM 1 TO 100STEP I 

50 C(J) — —C(]) : GOSUB 100 

60 NEXT J 

70 NEXT I 

80 GOTO 80 
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100 REM XX KIÍRÁS xx 
110 S — INT((J—1)/10)-- 1 
120 O — J—(S—1)x10 
130 PRINTSS, (0—1)3k4,; 
140 IF C(]J) — —1 THEN PRINTUSING " 34 3k 3k 4k"; J; : GOTO 160 
150 PRINT "? - 2" 

160 RETURN 


A CHR$(6) kódot előtörlésre használjuk, ezzel akadályozzuk meg 
az egymásra írást. 

A PRINT utasításban USING "ik 3- 4 4-"? formátummal írjuk 
le, hogy a számjegyektől függetlenül 4 pozícióra történik a kiírás, 
és a felesleges pozíciókra szóközök kerülnek. Így a számok és a — — 
jelek egymás alatt lesznek a képernyőn. 

A cella sorszámából (]) az ábrán levő helyét a programban felírt 
képletekkel határozhatjuk meg. A sorszám megegyezik az aktuális kép- 
ernyő sorszámmal, míg azt, hogy a képernyőn melyik oszlopnak felel 
meg az (0—1):x4 képlettel kapjuk. (Minden cella kiírása 4 pozíció!) 
A 35. sorral kiíratjuk, hogy melyik őr van úton. 

Ugyanezt a szemléltetést valósíthatjuk meg az Eratoszthenészi szi- 
tánál is, ha pl. 100-ig akarjuk a prímszámokat meghatározni, és az al- 
goritmust is nyomon akarjuk követni. Ez a módosított program a kö- 
vetkező lehet: 


5 CLS: PRINT CHR$(6); 
10 PRINT "PRÍMSZÁMOK 100-IG?: N — 100 
20 DIM A(N): V — SOR(N) 
30 FOR JÁ 1 TON: A(J)—]J: GOSUB 200: NEXT J] 
40 FOR 1-2 TÖV 
50 IF A(I))— 0 THEN 90 
60 FOR J—2kI TO N STEP I 
70 A(J) — 0: GOSUB 200 
80 FOR K—1 TO 1500: NEXTK 
90 NEXT J 
100 NEXT I 


50 


110 END 

200 REM :k KIÍRÁS xx 

210 S — INT((J—1)/10)-- 1 

220 O — J—(5—1)3k10 

230 PRINTSS, (O0—1) 4, ; 

240 1F A(Jh— 0 THEN PRINT " 5 —"; : GOTO 260 
250 PRINTUSING " 3 dt dk 36"; A(J); 

260 RETURN 


3. Nézzünk ezután egy összetettebb feladatot, amelyet természete- 
sen részfelalatokra bontunk. A részfeladatokat szubrutin formában ír- 
juk fel, és ezekből állítjuk össze egy főprogram segítségével a teljes 
programot, rámutatva a szubrutin-programozás előnyeire. Célunk két 
(vagy több) természetes szám legnagyobb közös osztójának, illetve leg- 
kisebb közös többszörösének meghatározása. A főbb lépések a követ- 
kezők: 

— elő kell állítani a számok prímtényezős felbontását. 

— ebben szükség van a prímszámokra, a nagyobb (vagy a leg- 

nagyobb) számig. — Ezt a programot már felírtuk. ; 

— a prímtényezős felbontásból meg kell határozni a legnagyobb 

közös osztót, illetve a legkisebb közös többszöröst. 
Fel fogjuk használni a prímszámok előállítására felírt programot, de a 
képernyőre való kiíratás helyett egy P( ) tömbben tároljuk a prímszá- 
kat. Ezt figyelembe véve írjuk át programunkat szubrutinná. Pl jelenti 
az N-ig talált prímszámok számát. 


1000 REM 3£ PRÍMSZÁMOK N-IG 3 

1010 DIM A(N), P(N): V.— SOR(N) : P1—0 
1020 FOR 1—1 TON: A(I)—1I: NEXT I 
1025 IF N-—-4 THEN 1090 

1030 FOR 152 TOV 

1040 IF A(I)—O THEN 1080 

1050 FOR J—2xkI TO N STEP I 

1060 A(J) 0" 

1070 NEXT J 
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1080 NEXT I 
1090 FOR 1-2 TON 
1100 IF A()—0 THEN 1120 
1110 Pt — P1--1: P(P1) — A() 
1120 NEXT I 

1130 RETURN 


Nézzük a törzstényezőkre bontás programrészletét! 


Az algoritmus a következő : 

— Vegyük a legkisebb prímszámot, a 2-t! 

— Nézzük meg, osztható-e a szám vele. (Erre az INT függvényt fogjuk 
használni. Ha ezt nem akarjuk, ismételt kivonást alkalmazhatunk 
mindaddig, amíg kisebb számot nem kapunk mint 2, vagy általában 
amivel való oszthatóságot vizsgálunk. Ha az utolsó kivonásnál ka- 
pott szám 0, akkor az oszthatóság teljesül, ha nem 0, akkor az oszt- 
hatóság nem teljesül). 

— Ha igen, osszuk el, és a hányadosra és ugyanerre a prímszámra al- 
kalmazzuk a második lépést. 

— Ha valamelyik lépésben az oszthatóság nem teljesül, vegyük a követ- 
kező prímet, és ismételjük a 2. lépéstől az algoritmust mindaddig, 
amíg a hányados prímszám nem lesz. 


A feladat nehézségére való tekintettel ismét készítsünk folyamatábrát! 
(9. ábra) 


2000 REM 3 PRÍMTÉNYEZŐKRE BONTÁS x 
2010]J—O: 1—1 

2020 IF. INT(M/P(I)——  M/P(I) THEN 2050 
2030 J — J--1: F(J) — P(I) 

2040 M — M/P(I) : GOTO 2020 

2050 I — 13-1 

2060IF M—-5P(I) AND M-51 THEN 2020 
2065 IF M—-1 THEN 2080 

2070 ]J — ]J--1: F() — P(D) 

2080 RETURN 
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n 
INT(M/ P(IJ-M/PL zI:31 


F(J)-P(J) 


M-M/P(I) 
F(J)-P(I) 


9. ábra 


A szubrutin végrehajtása után a prímtényezős felbontás az F(1,) ... 
. . ., FCI) tömbelemekben van. 

Most nézzük a legnagyobb közös osztó meghatározásának algorit- 
musát és folyamatábráját! (Két egyidejlűleg nem zéró természetes szám 
esetén.) 

A prímtényezős felbontásokat az F1( ), illetve F2( ) tömbökben tá- 
roljuk, növekvő sorrendben. Rendre összehasonlítjuk a felbontások prím- 
tényezőit, s ha megegyezőt találunk, ezzel szorozzuk a legnagyobb közös 
osztót (LN), és mindkét felbontásban továbblépünk. Ha nem egyenlő 
prímtényezőt találunk, csak abban a tömbben (felbontásban) kell tovább- 
lépnünk, ahol a kisebb szám van. Ezt mindaddig ismételjük, míg vala- 
melyik felbontás végére nem érünk. (10. ábra) 
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3000 
3010 
3015 
3020 
3030 


3040 
3050 
3060 
3070 
3080 


LN — 1: 


10. ábra 
REM x LEGNAGYOBB KÖZÖS OSZTÓ x 


K.sz 1: L—- 1 


IF KI-MO OR L1—0 THEN 3080 
IF F1(K) — F2(L) THEN 3050 

IF  FI(KJ-F2(L) THEN K—K-R1: IF Kz — 
3020 ELSE 3080 


L — L--1 : 


IF L- —L1 THEN 3020 ELSE 3080 


LN — LNXFI(K): K — K--1 


IF £K2-K1 
L"— L34-1 : 
RETURN 


THEN 3080 
IF LL —L1 THEN 3020 


K1 


THEN 


Ezután a legkisebb közös többszöröst legegyszerűbben úgy határoz- 
hatjuk meg, hogy a két szám szorzatát elosztjuk a legnagyobb közös osz- 
tóval. A főprogram felírása után bemutatunk egy lehetőséget a legkisebb 

. közös többszörösnek a prímtényezős felbontásokból való meghatáro- 
zására. Ez lényegében hasonló a legnagyobb közös osztó meghatározá- 
sához, de annál jóval bonyolultabb. Érdemes tehát a legkisebb közös 
többszöröst a legnagyobb közös osztó felhasználásával meghatározni, 
még akkor is, ha azt egyébként nem számítanánk ki. 


10 CLS: DIM F1(100), F2(100), F(100) 

20 PRINT "ADD MEG A KÉT SZÁMOT!" 

30 INPUT A, B 

35 IF Az1 OR B—-1 THEN PRINT "ROSSZ ADAT!": GOTO 20 

40IF AB THEN N-—ÁA ELSE N—B 

45IF N—1 THEN LN—1: GOTO 110 

50 GOSUB 1000 : REM XX PRÍMSZÁMOK ELŐÁLLÍTÁSA :k 

60MW—A: GOSUB 2000: REM :k A PRÍMTÉNYEZŐKRE 
BONTÁSA -Xk 

70K1—]: FORI—1 TO K1: Ft()—F(D): NEXT I ; 

80 M—B: GOSUB2000: REM :k B PRÍMTÉNYEZŐKRE BONTÁ 
SA xx 

904£1—-]: FORI—1 TO L1: FXD— FI): NEXTI 

100 GOSUB 3000: REM Xx A LNKO MEGHATÁROZÁSA x 

110 LKY— A:KB/LN É : i 

120 PRINT A; "ÉS" ; B 

130 PRINT "LEGNAGYOBB KÖZÖS OSZTÓJA:"; LN 

140 PRINT "LEGKISEBB KÖZÖS TÖBBSZÖRÖSE?" : LKY 

150 END ; 


Az LK-nál a 9 jelet az osztás miatt írtuk, az esetleges gépi pontat- 
lanság miatt. 

Nézzük ezután a legkisebb közös többszörösnek a ász hátározását 
a legnagyobb közös osztó ismerete nélkül! (Ezt csak a legjobb tanulók- 
nak ajánljuk, kellő előkészítés után!) 

Itt is rendre összehasonlítjuk a prímtényezős felbontások egyes ele- 
meit. 
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— Ha megegyezőt találunk, ezzel megszorozzuk a legkisebb közös 

többszöröst LK-t, és mindkét felbontásban továbblépünk. Ha vala- 

. melyikben már nincs több elem, a ee] összes további prímtényező- 
jével szorozzuk LK-t. 

— Ha különbözőt találunk, akkor a kisebbel megszorozzuk LK-t, 

és csak itt lépünk tovább. Ha a továbblépésre nincs lehetőség, akkor 

a másik felbontás összes további prímtényezőivel szorozzuk LK-t. 

Ezt mindaddig ismételjük, míg valamelyik (vagy mindkét) felbontás 
végére nem érünk. (11. ábra) 

Az L-L—1 blokkra azért van szükség, mert olyan pontra csat- 
lakozunk vissza, amely után L-et 1-gyel megnöveljük, akármelyik irány- 
ban is haladunk tovább. A fenti helyről való csatlakozásnál pedig az L 
értékét nem kell megváltoztatni. 


4000 REM X LKKT 

4005 IF L1-0 OR K1-0 THEN LK —AxB 

4010£K—1: KM1: L—1 

4020 IF FI(K) — F2X(L) THEN 4050 

4030 IF. Ft(K)—F2(L)) THENL—-L—1: GOTO 4050 

4040 LK — LKXF2(L) : GOTO 4080 

"4050 LK —LKXFI(K): K — K--1 

4060 IF Kz — KI THEN 4080 

4070 1-L-41: IF Lz —L1 THEN LK — LKXF2(L): GOTO 4070 
ELSE 4110 ; 

40800£—L-$1: IF Lz —L1 THEN 4020 

4090 LK — LKXFI(K) : K — K--1 

4100 IF Kz — KI THEN 4090 

4110 RETURN 


"Ha az előző főprogramban ezt a szubrutint akarjuk használni, 
akkor 
110 GOSUB 4000 
sorral futtatjuk a programot, és a 140-es sorban az LK9 helyett LK-t 


írunk. 
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4. A prímszámokkal kapcsolatban könnyen megoldható feladat 
még pl. a következő. 

Az első N (paraméter) természetes számból keressük ki az ikerprí- 
meket! (Olyan prímek, amelyek különbsége 2.) 


5 LK-LKeF2IL) 


LKFLKxF2(L) 


11. ábra 
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A feladatot úgy is általánosíthatjuk, hogy adott [M, NI intervallum- 


ban keressük meg az ikerprímeket. 


Felhasználjuk az előzőekben felírt prímszámelőállító szubrutint. 


1-től N-ig előállítjuk a prímszámokat, azután az [M, NI] intervallumba 
esők közül kiválasztjuk azokat, amelyeknek különbsége 2. 


10 
20 


30 
40 


50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


CLS 
PRINT "MELYIK INTERVALLUMBA ESŐ IKERPRÍMEKET HATÁ- 
ROZZAM MEG?" 


INPUT "A VÉGPONTOK"; MAN: §-0 

IF N- CM THEN PRINT "ROSSZ INTERVALLUM!" : GO 
TO 20 I 
IF N-—3 THEN 150 

GOSUB 1000 

1—1 

IF P(D--M AND P(I)--P(P1) THEN I —1--1: GOTO 80 

IF P(I)— P(P1) THEN 150 

FOR J—-I TO P1—1 


IF  P(J--1)—P(Jh-—2 THEN 130 

S-S-1: PRINT P(J); P(J4D 

NEXT J 

IF Sz—0 THEN 160 

PRINT "AZ ADOTT INTERVALLUMBAN NINCS IKERPRÍM" 
END 


5. Az előzőek felhasználásával már könnyen megoldhatjuk a kö- 


vetkező feladatot. 


Adott egy természetes számokból álló számhalmaz. Keressük ki a 


relatív prímeket! 


A megoldás fő lépései a következők lehetnek : 


— A halmazból két elemű részhalmazokat képezünk. (Olyan számpáro- 


kat, 


ahol a komponensek különbözőek, és a sorrend nem számít.) Ezt 


valósítottuk meg a 3.2. rész 4. feladatának megoldásakor. (10 elem he- 
lyett N-nel dolgozva s kiíratás helyett tárolást végrehajtva.) 
— Ezután meghatározhatjuk az egyes párok legnagyob közös osztóját 
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az előzőekben felírt program felhasználásával, s ha ez 1, akkor a szám- 
párt kiíratjuk, mint relatív prímeket. 

6. A közös osztók és így a legnagyobb közös osztó meghatározására 
más, kevésbé , szép", de rövidebb (időben nem biztos!) algoritmus is 
adódik. — j : Mst 
Legyen a két szám A és B. Válasszuk ki a kisebbet! Jelöljük ezt K- 
val, a nagyobbat N-nel. Vegyük 2-től K-ig a természetes számokat, és 
nézzük meg, melyik osztója K-nak. (Az INT függvény segítségével vagy 
a már említett ismételt kivonással.) Ha találunk K-nak egy osztóját, 
nézzük meg, osztója-e N-nek. Ha igen, tároljuk (vagy írassuk ki), mint 
közös osztót. Így a legnagyobb közös osztó (LN) az utoljára talált közös 
osztó. 


10 INPUT A, B : CLS 
20 LN — 1 : PRINT A; "ÉS"; B; "KÖZÖS OSZTÓI :" 

30 IF AzB THENK-A:N-BELSE K—B: N—A 

40 FORI-1TOK 

50 IF INT(K/)-—5-K/I THEN 80 

60 IF INT(N/D—5-N/! THEN 80 

70 LN — I : PRINT I; i / 
80 NEXT I 

90 PRINT : PRINT "A LEGNAGYOBB. KÖZÖS. OSZTÓ:?; LN 
100 END 3 e Ea él 27 zt : 


Azért is célszerű ezt az algoritmust is megbeszélni a gyerekekkel, 
mert egy teljesen más módszert ismerhetnek meg a legnagyobb közös 
osztó meghatározására. (Számunkra nem nagyon használható algoritmus, 
de a gép gyors műveletvégzése miatt — nem túl nagy természetes szám 
esetén — viszonylag gyorsan elvégzi.) 

7. Végül megemlítünk még egy feladatot a prímszámokkal kap- 
csolatban, melynek megoldására érdemes programot írni. 

Goldbach (1690—1764) sejtése szerint minden 2-nél nagyobb páros 
szám felbontható két prímszám összegére. 


(PI. 4—2--2, 6—3--3, 8—3--S5, 10—5--5—3--7...) 
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Egy IM, N] intervallumba eső páros számokra végeztessük el a 
. géppel ezt a felbontást. Ismét szükségünk van a prímszámokat előállító 
szubrutinra. 


— Képezzük a prímszámokat N-ig. 


— Ezután vesszük az [M, NI intervallumba eső páros számokat (jelöl- 
jük A-val), és az első prímszámtól kezdve (2) képezzük A—P(D-t. 


— Amennyiben ez prímszám, (megtaláljuk prímszámaink között A-ig) 
kiíratjuk a felbontást, s a következő prímszámmal próbálunk másik 
felbontást keresni. 


— Ha a különbség nem prím, a kiíratás elmarad, s úgy lépünk tovább. 


— Új felbontás keresésénél a prímeket csak A/2-ig vesszük. (Ezután 
már csak a tagok sorrendje lenne más.) 


10 CLS 

20 PRINT "MELYIK INTERVALLUMBA ESŐ PÁROS SZÁMOKAT 

. AKAROD FELBONTANI PRÍMSZÁMOK ÖSSZEGÉRE?" 

30 INPUT "A VÉGPONTOK"; M, N 

40 1F M-0 OR N- —M OR N-4 THEN PRINT "ROSSZ AZ 
INTERVALLUM" : GOTO 20 

50 GOSUB 1000 : REM k PRÍMSZÁMOK ELŐÁLLÍTÁSA :k 

60 IF M/2 — INT(M/2) THEN A—-— MELSE A — M--1 

701—1 


80 B — A—P(I) 

90]—1 

100 IF B — P(]j) THEN 130 

110 J — J--1 

120 IF P(JD—B OR J-P1 THEN 140 ELSE 100 
130 PRINT A; " — ? ; P(I;. "4"; P(J) 
140 1— 1-1 

150 IF P(Ih— — A/2 THEN 80 

160 A — A42 

1701F Az — N THEN 70 

180 END 
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8. Gyakran előforduló feladat: egy tízes számrendszerbeli termé- 
szetes számot (N) írjunk át egy A alapú (1—-4A-—10) számrendszerbe! 
Mivel ez a probléma (ha nem is ilyen megfogalmazásban) már az 
alsó tagozatban ismert, célszerűnek látjuk a programot az INT függvény 
alkalmazása nélkül is felírni. 
Az A alapú számrendszerben kapott számjegyeket az A( ) tömbben 
tároljuk. Az N-ből annyiszor levonjuk A-t, míg a kapott érték kisebb 
nem lesz, mint A. Ez az érték az A alapú számrendszerben a szám egye- 
sek helyén álló jegye. A levonások számát S-ben tároljuk. Ezután § ér- 
tékével kell megismételni azt, amit az előbb N-nel tettünk. Ekkor a kö- 
vetkező helyiértékű számjegyet kapjuk. Az eljárás akkor ér véget, ami- 
kor S értéke 0 lesz. 


DIM A(50): CLS 

INPUT "AZ ALAPSZÁM"; A 
INPUT "AZ ÁTÍRANDÓ SZÁM"? ; 5 N 
1—1 

S-0 

IF NZ-ZA THEN 80 

N-N-A: §—5S-11: GOTO 60 
A()—-N 

IF 5-0 THEN 110 

N-S: 1—131: GOTO 50 

FOR J—!I TO1 STEP —1 

PRINT A(J); 

NEXT J 

END 


Az INT függvény alkalmazásával pedig: 


DIM A(50): CLS 

INPUT "AZ ALAPSZÁM"; A 

INPUT "AZ ÁTÍRANDÓ SZÁM" ; N 
1-1 


H — INT(N/A) : M— N—HAA : A(I) — M 


IF H—0O THEN 80 
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7 N-H: 1—1-41: GOTO 50 
80 FOR JÁMAI TO1 STEP — 1 
90 PRINT A(J); 

100 NEXT J 

110 END - . 


9. A másik ehhez szorosan. kapcsolódó feladat, amikor egy 
A(1—A-10) alapú számrendszerben adott természetes számot akarunk 
átírni tízes számrendszerbe. 

Az egyszerűség kedvéért a szám jegyeit külön olvassuk be, és tá- 
roljuk egy A() tömbben. (Az egyeseket A(0)-ban, ..., az A" helyiér- 
tékű jegyet A(N)-ben.) Így csupán az átírás annyi, hogy a jegyeket meg- 
szorozzuk a megfelelő A hatványokkal, és ezeket összegezzük. 

M — A(0) . A" 3-A(1) - At-- A(2) : AZ 7... 4-A(N) - AN 


10 DIM A(50) 

20 INPUT "AZ ALAPSZÁM?"; A 

30 INPUT "A JEGYEK SZÁMA"; S:N — $—1 

40 PRINT "A SZÁM JEGYEI CSÖKKENŐ HELYIÉRTÉKEK SZERI- 
NT" 

50 FOR 1-N TOOSTEP —1 

60 INPUT  A(/) 

70 NEXT I: CLS 

80 PRINT "A SZÁM EREDETI ALAKJA:? 

90 FOR 1-MN TOO STEP —1 

100 PRINT A(D); 

110 NEXT I :PRINT 

120H—1: M—0 

130 FOR 1—M0 TON 

140 A(I) — A()kH: H— AxH: M — M-A(I) 

150 NEXT I 

160 PRINT "A SZÁM A TÍZES SZÁMRENDSZERBEN:?; M 

170 END ; 


Megmutathatjuk a következő felbontást is : 
M — (...((A(N) : A3A(N— 1): A3A(N—2) "A-t... --A(1)) A -- A(0) 
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Ennek felhasználásával a beolvasást követő programsorok így ala- 
kulnak: 


120 M — A(N) 
130 FOR 1-N—1 TO 0 STEP —1 
140 M — MXA-LA(I) 

150 NEXT I 


A kiírás ugyanaz, mint fent. 

10. Az előző algoritmusban és számos más feladatnál arra van szük- 
ségünk, hogy egy szám számjegyeit külön kezeljük. Egy természetes 
szám számjegyekre való bontásának két különböző módját mutatjuk be. 

Az első egy algebrai módszer. Jelölje N a természetes számot! 


A szám utolsó jegye — N-INT(N/10)—10 


A következő jegyet ugyanezen képlettel kapjuk, csak N helyett INT(N/10)- 
zel kell számolni. Ezt ismételjük mindaddig, míg INT(N/10) 0 nem 
lesz. A jegyeket A(0), ..., A(I) tömbelemekben tároljuk. 


10 DIM A(50): CLS 
20 INPUT "MELYIK SZÁMOT BONTSAM SZÁMJEGYEKRE"; NN 
301—-0 

40 S — INT(N/10) 

50 A(I)— N—S3£10 

60 IF 5-0 THEN 80 

70N-S: 1—1-k1: GOTO 40 

80 PRINT "A SZÁM JEGYEKRE BONTVA?" 

90 FOR JA! TOOSTEP —1 

100 PRINT A(J); 

110 NEXT J 

120 END 


A másik megvalósítást a string függvények használata teszi lehetővé. 
Ezzel a programmal ezeknek a függvényeknek egy érdekes alkalmazását 
mutathatjuk be. ; 
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A számot karaktersorozattá konvertáljuk, majd sorban leválaszt- 
juk az egyes karaktereket, és ezeket számokká konvertáljuk. 


10 DIM A(50): CLS 
20 INPUT "MELYIK SZÁMOT BONTSAM JEGYEIRE? ; N 
2 N$ — STR $(N) : H — LEN(N$) 

40 FOR 1—1 TO H 

50 M$ — MID$(NS$, I, 1) 

60 A(I) — VAL (M$) 

70 NEXT I! : 

75 PRINT "A SZÁM JEGYEKRE BONTVA:" 
80 FOR 1-2 TOH 

90 PRINT A(I); 

100 NEXT I 

110 END 


o 


A kiíratást a második elemtől kezdjük, mert az A(1)-ben 0 van, az 
előjel konverziója. Ha a számjegyeket nem akarjuk kiíratni, hanem csak 
tároljuk, akkor 80—100-ig elmarad a programból. 

Hasonló programokat írhatunk fel tökéletes számok, barátságos 
számok stb. előállítására. 

A három itt ismertetett témakörrel még korántsem merítettük ki a 
lehetőségeket. Nagyon sok feladatot sorolhattunk volna fel a geometria 
tárgyköréből is. Az általános iskolában tárgyalt geometriai alakzatok 
esetén a kerület, terület, felszín, térfogat kiszámításának lényege egy ér- 
tékadás, ahol egy bizonyos változónak a megfelelő képlettel adunk ér- 
téket. Ezek viszont annyira egyszerű feladatok, (INPUT, értékadás, 
PRINT) hogy bárki, aki valami keveset is foglalkozott a BASIC nyelv- 
vel, pillanatok alatt fel tudja írni programjukat. 

Olyan feladatoknak, ahol rajzokat készítenénk, a grafikus lehetőségek 
nagyfokú eltérése miatt (PRIMO, C—16) nem tartottuk célszerűnek a 
közlését. 

A fejezetben felírt programok egyaránt futtathatók HT, PRIMO, 
C—16 gépeken, legfeljebb a kiíratást kell módosítani egy-két helyen. 
(Kivétel: IF THEN ELSE utasításnál C—16-nál az ELSE előtt :!) 
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4. SZÁMÍTÓGÉP A 
MATEMATIKATANÁRI MUNKÁBAN 


Ebben a fejezetben olyan programokat mutatunk be, amelyéket a 
matematikatanárok tantárgyuk oktatásában használhatnak. Egyrészt 
tantervi órákon vagy szakkörön, másrészt korrepetáláson vagy egyéni 
gyakoroltatás, tanulás vagy számonkérés alkálmával. 

A bemutatott példákkal ötleteket, illetve útmutatásokat szeret- 
nénk adni ahhoz, hogy a gyakorló pedagógusok saját maguk is minél 
több olyan programot készítsenek (vagy készíttessenek), amelyeket ha- 
tékonyan tudnak alkalmazni a tanulási-tanítási folyamatban. 

Az oktatóprogramok írásánál a géppel való párbeszéd lehetőségét 
használjuk ki. A feladat egyértelmű megfogalmazása és közlése mellett 
nagyon fontos, hogy pontosan értesüljön a felhasználó, hogyan, milyen 
formában kell válaszait megadni. A kiírt szövegek elolvasására, a fel- 
adatok megoldásánál a gondolkodásra a szükséges időt biztosítanunk 
kell. A programba szüneteket többféle módon iktathatünk. Egyik lehe- 
tőség az INKEYS$ alkalmazása. Pl. 10 A$-—-INKEYS$ : IF A$-"??THEN 10 

Mindaddig a 10-es utasítás hajtódik végre, amíg a billentyűzetről 
egy jel be nem érkezik. : 

Másik lehetőség, ha a választ, az adatot INPUT utasítással kérjük 
be, ilyenkor mindaddig várakozik a gép, ameddig a kellő számú adatot 
be nem írjuk, és a RETURN billentyűt meg nem érintjük. 

Várakozhátunk míg egy , üres"? ciklus beiktatásával is. 


10 FORI-1 TON: NEXTN 


A gép csak számlál 1-től N-ig, így N változtatásával a várakozási idő 
változtatható. 

Elsőnek tekintsünk egy egyszerű és részletesen leírt programot. 
(A későbbiekben az ilyen nagyfokú részletezéstől eltekintünk.) 
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. 41. Számsorozatok képzése 


A program a képzési szabály felismerésének és újabb tagok felírá- 
sának gyakoroltatására alkalmas. 
A gép számtani sorozatot képez az 


S()—S(I—1)-ED képlettel (1—1) 


Az S(1)-et és a D-t az RND függvénnyel állíthatjuk elő. 

. A sorozat első 3 tagját írassuk ki a képernyőre, s.szólítsuk fel a 
felhasználót á folytatásra. (Pl. a következő 6 tag megadására.) 
. ... Ha a programot pl. 4. osztályban akarjuk alkalmazni, arra kell 
ügyelnünk, hogy a sorozat szóban forgó tagjai (az első 9) között ne le- 
gyen negatív. 


Ezt pl. S(1) — RND(400) 4- 200 D — jéig álá ali 20 értékadásokkal ér- 
hetjük el, mivel így 


201ES(1)£600 és —19ED£20. . 


Szerkesszük úgy a programot, hogy egyszer javítási lehetőséget 
kapjon a tanuló. Erre egy jelzőt (F) használunk, amelynek értékét 1-re 
állítjuk, ha már égyszer hibás válasz érkezett, míg új tag képzése előtt 
0-ra állítjuk. 

" Ennek alapján nézzük a feladat szerkezetét! (12. ábra) 

A legtöbb teendőt a 3. rész jelenti. Ezt nézzük részletesen. (13. ábra) 
A 6 tag lekérdezését ciklussal szervezzük. 

Ezek után programunk a következő lehet: 


".5.REM :k SZÁMSOROZATOK "3 
6 CLS 

10 PRINT . "SZÁMSOROZATOKAT KELL KÉPEZNED!" 

20 PRINT "ÁLLAPÍTSD MEG A SZABÁLYT, . MAJD ADD MEG A 
SOROZAT KÖVETKEZŐ 6 TAGJÁT!" 

"30 PRINT "AZ EGYES TAGOK BEÍRÁSA UTÁN. ÉRINTSD MEG A 
RETURN BILLENTYŰT!" 

40 PRINT "HA VALAMELYIK VÁLASZOD NEM.JÓ, A GÉP JELZI ÉS 
EGYSZER JAVÍTHATSZ." 
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50 PRINT "HA ELOLVASTAD ÉRINTS MEG EGY: BILLÉNTYŰT!" 

60 IF  INKEY$ — ""THEN 60 Mi. 

70 DIM S(9) 5 ke ET FEZES a 

80 S(1) — RND(400)--200: D — RND(40)—20 

90 FOR 1-2. TO 9: S(I) — S(lI—1)-HD: NEXT" Vr 

100 CLS: PRINT S(1); S(2); S(B) 

110 PRINT "FOLYTASD!" Í 

120 FOR 1-4 TO? . 

130 INPUT S§ e 

140 IF S — S(I) THEN PRINT "JÓ!"; . : F — 0: GOTO 170. 

150 IF F—O THEN PRINT "HIBÁZTÁL, JAVÍTSD! : F— 1: GO- 
TO 130 3 


10-50 


A feladat kiírása 


A sorozat tagjainak 


előállítása és az elsől 80-110 j 
három tag kiirása i i 
A további. tagok 1e- ; . 
kérdezése 120-180 


12. ábra 
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13. ábra 


160 PRINT "MOST SEM JÓ, A HELYES:"; S():F—0 
1701F 1-9 THEN PRINT "ADD MEG A KÖVETKEZŐT!" 
180 NEXT I i 


185 PRINT 

190 INPUT "AKARSZ MÉG DOLGOZNI — (I/N)"; V$ 
2001F V$—- "I" OR V$—- "ij". THEN 80 

210 END 


Ha nehezebb feladatot akarunk, ezt az S(1) és D intervallumának 
alkalmas megválasztásával érhetjük el. 

Más számsorozatok képzése esetén pedig a 90. sorban az S(l) 
képzésének szabályát kell átírni. A gép által kiírt tagok számát is meg- 
növelhetjük. i 
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4.2. Állítások 1. 


A program gyakoroltatásra és számonkérésre egyaránt alkalmas, 
felhasználásakor (futtatáskor) választhatunk a két lehetőség közül. 

A gépben állításokat tárolunk, amelyekről a tanulóknak el kell 
dönteni, hogy helyesek. vagy. sem. Az állításokat egy A$ ( ) tömbben 
tároljuk, s az állításokhoz tartozó logikai értékeket (1 —igaz, N— hamis) 
pedig egy V$( ) tömbben. 

A program egyik paramétere, hogy hány állítást sizssáljo a ta- 
nuló.. (Ez nyilván kisebb vagy egyenlő, mint a gépben tárolt állítások 
száma.) A gép véletlenszerűen választ az állítások közül, így annál jobb 
a programunk, a futtatások annál változatosabbak, minél több állítást 
tárolunk. Célszerű az állításokat, a hozzájuk tartozó logikai értékeket és 
magyarázatokat, mint adatokat, szalagon rögzíteni. Ekkor különböző 
témaköröknek megfelelően, más-más adatszalaggal futtathatjuk a prog- 
ramot. Természetesen nemcsak matematikaórán használhatjuk -ezt a 
programot. Bármilyen tárgykörből választhatjuk az állításokat, ha azokra 
egyértelmű igennel vagy nemmel lehet válaszolni. 

Ha a programot számonkérésre akarjuk használni, akkor. az egyes 
érdemjegyek eléréséhez szükséges helyes válaszok számát is a futtatások 
alkalmával kell megadnunk. Ekkor a gép érdemjeggyel is értékel, egyéb- 
kén csak a jó és a rossz válaszok számát írja ki. 

Az egyes válaszok után a gép azonnal visszajelzést ad, hogy helyes 
volt vagy nem. Rossz válasz esetén magyarázatot is kérhetünk. Ezért az 
egyes állítások igazságának vagy hamisságának indoklására szolgáló 
magyarázatokat szintén tárolnunk kell. (Ez egy M$( ) tömbben történik.) 


A program három fő részből áll: 

1. A feladat ismertetése és a paraméterek megadása. 
2. Az állítások kiírása és a válaszok értékelése. 

3. A tanuló teljesítményének értékelése. j 


Ezek a fő részek a 3500, 3600 és 4000 sorszámmal kezdődő . szub- 
rutinok. A főprogram az adatoknak (az állításoknak, a hozzájuk tar- 
tozó logikai értékeknek és a magyarázatoknak) a memóriába való beol- 
vasásából és a három szubrutin hívásából áll. A második szubrutint 
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ciklikusan hívja a főprogram, ahány állítást kap a tanuló. Annak ér- 

dekében, hogy ugyanazt az állítást kétszer ne adja a gép a tanulónak, 

a már előállított véletlen számokat tároljuk (B ( ) tömb), és ellenőrizzük, 

hogy az újonnan előállított véletlen szám előfordult-e már, s ha igen, 

új számot állíttatunk elő. (3610—3650) I 

A programbán még szereplő fontosabb változók : 

H: helyes válaszok száma ; 

R: helytelen válaszok száma 

E ( ) tömb megfelelő elemei az egyes osztályzatokhoz szükséges helyes 
válaszok száma. (Pl. E(4-ben tároljuk a 4-es eléréséhez szükséges he- 

nes válaszok számát.) 


. 10 REM X " ÁLLÍTÁSOK 3k 

. 20 CLEAR 5000 

.30 OPEN "ADAT" 

40-INPUT 3£ N 

50 DIM A$(N), V$(N), M$(N), B$(N), E(5) i 

60 FOR 1—1 TON: INPUT-JE A$(I), V$(I). M$(I.: NEXT I 
. 65 CLOSE ; 

70 CLS:: GOSUB 3500: REM :k A FELADAT KIÍRÁSA :xk 

80 FOR 1—1 TON1 é 

90 CLS: GOSUB 3600: REM xx AZ ÁLLÍTÁSOK KIÍRÁSA, A VÁ 
. ..  LASZOK ÉRTÉKELÉSE 
100 NEXT I 19 jee i 

110 CLS: : GOSUB 4000: REM xx ÉRTÉKELÉS 3 

120 END i 
3500 REM :k A FELADAT -X i 
3510 PRINT "ÁLLÍTÁSOKRÓL EL KELL DÖNTENI, HOGY IGAZAK" 
3520 PRINT "VAGY NEM. HA IGAZ, AKKOR AZ I BETŰT, HA" 
3530 PRINT "NEM, AKKOR AZ N BETŰT KELL MEGÉRINTENI." 
3540 PRINT "ROSSZ VÁLASZ ESETÉN MAGYARÁZATOT LEHET" 
3550 PRINT "KÉRNI A GÉPTŐL." i 
3552 PRINT "HÁNY ÁLLÍTÁST ÍRJON KI A GÉP (MAX "; N;")"; 
3554 INPUT N1 
3560 PRINT " GYAKOROLTATNI AKAR (1), VAGY ÉRDEMJEGGYEL" 


70 


3565 
3570 
3572 


3574 
3576 


3578 
3580 
3582 
3590 
3600 
3610 
3620 
3630 
3640 
3650 


3660 


3670 
3680 


3690 


3700 
3710 
3720 
3730 
3740 
3750 


3760. 


4000 
4010 
4020 
4030 


PRINT "AKARJA A TELJESÍTMÉNYT ÉRTÉKELNI 2)"; 

INPUT K 

IFF K— 1 OR K — 2 THEN 3574 ELSE PRINT "CSAK 1, VAGY 2 
LEHET A VÁLASZ! VÁLASZOLJON ÚJRA!" : GOTO 3570-. 
IF K—-1 THEN E—1: GOTO 3590 

CLS: PI$ — "HÁNY JÓ VÁLASZ ESETÉN KAP A TANULÓ" : 
P2$ — "ÉRDEM — JEGYET" 

FOR K—5 TO2 STEP —1 I 

PRINT P1$; K;. P2$;: INPUT E(K) 


NEXT K 
RETURN I 

REM xx AZ ÁLLÍTÁSOK KIÍRÁSA 
J — RND(N) 

FOR K—-1 TO I—1 


IF J— B(K) THEN 3610 


NEXT K 

B) EJ] 

PRINT A$(]J) I Sti 

W$ — INKEY$ : IF W$— "" THEN 3670 

IF W$- "IP OR W$— "ii? OR. W$ — ?"N?" OR W$ S "n? 


THEN 3690 ELSE PRINT "CSAK I VAGY N BETŰVEL VÁLASZ 
OLHATSZ! VÁLA- SZOL ÚJRA!" : GOTO 3670 

IF W$ — V$(J) THEN H — H--1: PRINT "HELYESEN . VÁLA- 
SZOLTÁL.": GOTO 3740 

R — R--1: PRINT "HELYTELEN A VÁLASZOD!" 

PRINT "AKARSZ MAGYARÁZATOT KAPNI? (I/N)" 


IF INKEY$ — "" THEN 3720 

IF INKEY$ — "I" .OR INKEY$ — "i" THEN PRINT M$) 
PRINT "HA FOLYTATHATJUK ÉRINTS MEG EGY BETŰT!" 
IF INKEY$ — "" THEN 3750 

RETURN 


REM 3 ÉRTÉKELÉS -xk i §-$A 
PRINT N1; "VÁLASZBÓL" ; H; "HELYES VOLT"; R; "HIBÁS" 
IF E— 1 THEN 4070 

FOR K—5 TO1STEP —1 


71 


4040 IF H-—E(K) THEN 4060 

4050 PRINT  "ÉRDEMJEGYED"; K: GOTO 4070 
4060 NEXT. K 

4070 RETURN 


Adatszalag készítése 

Az output file-t a CREATE "file név"? utasítással nyitjuk meg. 
(Programunkban az adat-file neve ADAT) 

A megnyitott file-ba a PRINT3t output lista utasítással írhatjuk 
az adatokat. 

Az adat-file-t a CLOSE utasítással zárjuk le. 

Adatszalagunkra mindössze 5 állítást írtunk fel (helyszűke miatt) 
természetesen ez bővíthető a memória nagyságát figyelembe véve. Az 
állításoknál és a magyarázatoknál a stringek határát jelző "-et (idézőjelet) 
karakteresen (CHRS$(34)) kivittük a szalagra, ellenkező esetben a szö- 
vegben lévő, (vessző)-ket elválasztó jelnek tekinti a gép. 

Megjegyzés: az állítások és magyarázatok megfogalmazásánál 
mindig ügyeljünk arra, hogy max. 255 karakteresek lehetnek, szóközöket 
is beleértve. 


. Adatszalagot pl. a következő programmal készíthetünk : 


10 REM :3k ADATSZALAG KÉSZÍTÉSE xx 

20 CLEAR 5000: N— 5: DIM A$(5), V$(5), M$(5) 

30 DATA "HA EGY SZORZATBAN CSAK NEGATÍV TÉNYEZŐK 

VANNAK, AKKOR A SZORZAT NEGATÍV." 

40 DATA "HA EGY SZORZATBAN KÉT NEGATÍV TÉNYEZŐ VAN, 
A TÖBBI POZITÍV, AKKOR A SZORZAT POZITÍV." 

50 DATA "HA EGY SZORZATBAN A. NEGATÍV TÉNYEZŐK SZÁMA 
PÁROS, AKKOR A SZORZAT POZITÍV." 

60 DATA "HA EGY SZORZATBAN A NEGATÍV TÉNYEZŐK SZÁMA 
PÁRATLAN, AKKOR A SZORZAT NEGATÍV." 

70 DATA "HA EGY SZORZATBAN A POZITÍV TÉNYEZŐK SZÁMA 
PÁROS, AKKOR A SZORZAT POZITÍV." 

80 DATA ?N", O9P9, PPP, PN", 
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90 DATA "FIGYELD MEG A KÖVETKEZŐ PÉLDÁT! 


100 


110 


120 
130 
140 


150 
160 


170 
180 
190 
200 
210 


(—2)k(—3)—6" 

DATA "CSOPORTOSÍTSD KÜLÖN A NEGATÍV ÉS A POZITÍV 
TÉNYEZŐKET! A KÉT NEGATÍV TÉNYEZŐ SZORZATA POZI- 
TÍV, A POZITÍVAK SZORZATA SZINTÉN, ÍGY AZ EREDMÉNY IS 
POZITÍV." 

DATA "A NEGATÍV TÉNYEZŐKET OSSZAD KETTES CSOPOR- 
TOKBA. AZ EGYES CSOPORTOK SZORZATA POZI- 

TÍV, A POZITÍVAK SZORZATA SZINTÉN, ÍGY AZ EREDMÉNY 
IS AZ." 

DATA "FIGYELD MEG A KÖVETKEZŐ PÉLDÁT! 
(—2)k(—4)3x(—3) x2 — —487 

DATA "AZ ELŐJEL A NEGATÍV TÉNYEZŐK SZÁMÁTÓL 
FÜGG! 23x3:3k(—1) — —6" 

FOR 1—1 TO N: READ AX$S(l) : A$(I) — CHR$(34)--A$(1) -- 
--CHR$(34) : NEXTI 

FORI-1TON: READ V$(I): NEXTI 

FOR 1—1 TON: READ M$(l) : M$(I) — CHR$(34)-- M$(I) -- 
--CHR$(34) : NEXT I 

CREATE "ADAT" 

PRINT3k£N 

FOR 1—1 TO5: PRINT: A$(I), V$(ID, M$(I) : NEXT ! 
CLOSE 

END 


Az így elkészített adatszalagot használja a program. OPEN "file 


név" utasítás hatására (ha a magnó PLAY gombját benyomtuk) a gép 
megkeresi a megadott nevű adat-file-t, és rááll az első adatra. Az adato- 


kat 


az INPUT 4 input lista utasítással olvashatjuk be. Az input-file 


lezárása a CLOSE utasítással történik. (Ez nem kötelező.) 


4.3. Állítások 2. 


A következő program önellenőrzést tesz lehetővé. Mindenki saját 


maga teheti próbára tudását. 
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Állítások jelennek meg a képernyőn, amelyek közül ki kell válasz- 
tani a helyeset (mindig csak egy helyes). A gép, ha kérjük, azonnal 
visszajelzést ad, hogy helyes-e a válasz, és ha nem, megadja az igaz állí- 
tás sorszámát. Ha úgy rendelkezünk, a visszajelzés elmarad. Helyes vá- 
laszaink száma tárolódik, és a feladat végén megjelenik a képernyőn, 
hogy hány válaszból mennyi volt jó, és a teljesítményt a gép 96-osan ér- 
tékeli. 

Így a programot számonkérésre is felhasználhatjuk, ha a 9-ot 
érdemjegyre vagy pontra váltjuk át. Ilyenkor célszerű a válaszok utáni 
visszajelzést letiltani, mert az esetleg információt szolgáltathat a követ- 
kező állítás sorozatokra vonatkozóan is. 

Az állítás-sorozatok száma (N) és az egyes sorozatokban lévő ál- 
lítások száma is tetszőleges. Ez utóbbinak egyetlen korlátja, hogy az 
állítások rá férjenek a képernyőre. 


Az állításokat az A$( ) tömbben tároljuk. 
S(1), ..., S(N) jelenti az egyes állítás-sorozatokban az állítások számát. 
VC(1), ..., VC(N) pedig a helyes állítások sorszámait tartalmazza. 


Az adatokat, állításokat szalagra rögzítettük, hasonló módon mint 


zrr 


az előző programnál. 


A főprogram a következő részekre tagolható : 

1. Az adatok beolvasása szalagról. 

2. A feladatot kiíró szubrutin hívása 

3. Az állítás sorozatokat kiíró szubrutin ciklikus hívása 
4. Végső értékelés. 


A feladat kiírását végző szubrutinban (500—630) van elhelyezve a 
választás, hogy kérünk-e azonnali visszajelzést a válaszokra vagy sem. 

Az állításokat kiíró szubrutin (1000—1120) tartalmazza a válasz 
lekérdezését és értékelését is. 

. A program alkalmazhatósága éppolyan széles körű, mint az előbb 
ismertetetté, ha különböző témakörökből a szükséges adatszalagot el- 
készítjük. 

Kis módosítással a programot alkalmassá tehetjük olyan állítás- 
sorozatok vizsgálatára, amelyek közül nemcsak. egy állítás helyes. Ilyen- 
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kor az egyes állítás-sorozatok helyes állításainak számát is tárolnunk 


kell, 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


120 
130 


140 
150 


160 


170 
500 
510 
520 
530 
540 


550 


560 


valamint a helyes állítások sorszámait. 
Nézzük ezek után a programot! 


REM :k ÁLLÍTÁSOK. 
CLEAR 5000 

OPEN "ADAT" 
INPUTák N 

DIM S(N), V(N) 


FOR 1—1 TO N:INPUT4t S(I) : NEXT I 
FOR 1—1 TO N:INPUT4 V(I) : NEXT I 
5-0: FOR 1—-M1 TO N:S— S-S(I) : NEXT I 
DIM A$(5) 


FOR1—-—1 TO S: INPUT3k A$(I) : NEXT I: CLOSE 
CLS: H1—0: K — 0: GOSUB 500 : REM :k A FELADAT KIÍRÁ 
SA xX Mán 

FOR 1-5 1 TON 


CLS: GOSUB 1000: REM :k EGY ÁLLÍTÁS SOROZAT KIÍRÁ 
SA k Í 
NEXT I 


CLS: PRINT N; "VÁLASZBÓL"; H1; "VOLT HELYES,"; N— 
H1; "HIBÁS!" 

PRINT  "TELJESÍTMÉNYED";  USING "ddt dt. 4438"; HT/N3k 
100; : PRINT "9-OS." 

END I 

REM :K A FELADAT KIÍRÁSA :k 

PRINT "ÁLLÍTÁSOK JELENNEK MEG A KÉPERNYŐN, ME-? 
PRINT "LYEK KÖZÜL KI KELL VÁLASZTANI A HELYESET!" 
PRINT "MINDIG CSAK EGY HELYES. A HELYESNEK ÍTÉLT" 
PRINT "VÁLASZ SORSZÁMÁT KELL BEÍRNI. (PONT. NÉL — 
KÜL. )" 

PRINT "JELEZZE-E A GÉP, HOGY A VÁLASZ HELYES, 
VAGY HELYTELEN? (I/N)" 

V$ — INKEY$ : IFV$—"" THEN 560 
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570 


580 
590 
600 
610 
620 
630 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


1090 
1100 


1110 
1120 


IF V$— "I" ORV$—-— "ii" OR V$-"N" OR V$— "n" TH 


EN 600 


PRINT "CSAK! VAGY N BETŰ LEHET A VÁLASZ!" 
PRINT "ÚJ VÁLASZT KÉREK!" : GOTO 560 

IF V$—N" OR V$— "i" THEN V1— 1 

PRINT "HA ELOLVASTAD, ÉRINTS MEG EGY BILLENTYŰT!" 
IF INKEY$— "? THEN 620 

RETURN 

REM :X AZ ÁLLÍTÁSOK KIÍRÁSA 3 

FOR JA 1 TO S(/) 

K—K-1: PRINT J;?. "; A$(K) 

NEXT J 

PRINT "HÁNYADIK ÁLLÍTÁST TARTOD HELYESNEK?" 
INPUT  W 

IF W— V(I) THEN H1 5 H1-1 

IF V1-51 THEN 1100 


IF W - V(I) THEN PRINT "?A VÁLASZ HELYES!":: GOTO 

1100 

PRINT "A VÁLASZ HELYTELEN! AZ IGAZ ÁLLÍTÁS SOR- 
SZÁMA"; V(D;? 

PRINT "HA FOLYTATHATJUK, ÉRINTS MEG EGY BETŰT!" 

IF INKEY$ — " " THEN 1110 

RETURN 


Az adatszalagot a következő programmal készítettük : 


10 REM $k ADATSZALAG KÉSZÍTÉSE -k 

20 CLEAR 5000 

30 N-5 

50 DIM S(N), V(N) 

50 DATA 6, 3, 4, 3, 3 

60FOR 1—m1 TO N:READ S(D:S5—S-7-S(): NEXT I 
70 DATA 4,2,3,2,3 

80 FOR 1—1 TON : READ V(I): NEXT ! 

90 DIM A$(S) 
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100 


110 
120 
130 
140 
150 
160 


170 
180 
190 
200 


210 
220 
230 


240 


250 


260 


270 


280 


DATA "KÉT KÜLÖNBÖZŐ POZITÍV EGÉSZ SZÁM LEG — 
KISEBB KÖZÖS TÖBBSZÖRÖSE — KISEBB MINDKÉT 
SZÁMNÁL." 

DATA " NAGYOBB MINDKÉT SZÁMNÁL." 

DATA "KISEBB A NAGYOBB SZÁMNÁL." 

DATA "NAGYOBB A KISEBB SZÁMNÁL." 

DATA "KISEBB A KÉT SZÁM SZORZATÁNÁL." 

DATA "NAGYOBB A KÉT SZÁM SZORZATÁNÁL." 

DATA "KÉT KÜLÖNBÖZŐ POZITÍV EGÉSZ SZÁM 
LEGNAGYOBB KÖZÖS OSZTÓJA — KiS 
EBB MINDKÉT SZÁMNÁL." 

DATA " - KISEBB A NAGYOBB SZÁMNÁL." 

DATA " — KISEBB A KISEBB SZÁMNÁL." 

DATA "KÉT POZITÍV EGÉSZ SZÁMNAK — MIN 
DIG VAN KÖZÖS VALÓDI OSZTÓJA." 

DATA "—A LEGNAGYOBB KÖZÖS OSZTÓJA MIND — 
KETTŐNEK VALÓDI OSZTÓJA." 

DATA "MINDIG VAN LEGKISEBB KÖZÖS OSZTÓJA." 
DATA " MINDIG VAN LEGNAGYOBB KÖZÖS TÖBB — 
SZÖRÖSE." 

DATA "HA EGY KÉTTÉNYEZŐS SZORZAT OSZTHATÓ 

5-TEL, AKKOR MINDKÉT TÉNYEZŐJE OSZT- HATÓ 
5-TEL." 5 

DATA "HA EGY SZORZAT OSZTHATÓ 7-TEL, AKKOR 
LEGALÁBB AZ EGYIK TÉNYEZŐJE OSZTHATÓ 7-TEL." 
DATA "HA EGY SZORZAT OSZTHATÓ 20-SZAL, AK- 

KOR LEGALÁBB AZ EGYIK TÉNYEZŐJE OSZT- 
HATÓ 20-SZAL." 

DATA "HA EGY KÉTTAGÚ ÖSSZEG OSZTHATÓ EGY 

SZÁMMAL, AKKOR MINDKÉT TAGJA OSZT- HATÓ 
VELE." 

DATA "HA EGY ÖSSZEG EGYIK TAGJA NEM OSZT- 

HATÓ 7-TEL, AKKOR AZ ÖSSZEG SEM OSZTHATÓ 

7-TEL." 

DATA "HA EGY KÉTTAGÚ ÖSSZEG OSZTHATÓ 3-MAL, 
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ÉS AZ EGYIK TAGJA IS, AKKOR A MÁSIK TAG IS OSZ- 
THATÓ 3-MAL." ; I 

290 FORI—-1TOS 

300 READ A$(I) : A$(I) — CHR$(34)--A$(I)-- CHR$(34) 

310 NEXT I 

320 CREATE "ADAT" 3 

330 PRINT3£ N 

340 FORI-1 TON : PRINT: S(I) : NEXT I 

350 FORI—-1TON : PRINT3£ V(I) : NEXT I 

360 FORI—-1TOS : PRINT3- A$(I) : NEXT I 

370 CLOSE 

380 END 


4.4. Szabályjáték 


Könnyen számítógépre vihető az ismert szabályjáték. A programot 
akár gyakorlásra, akár számonkérésre is felhasználhatjuk. (Választható.) 
Ha célunk a gyakoroltatás, akkor a gép csak szöveges értékelést ad, míg 
ha számonkérésnél alkalmazzuk, úgy érdemjeggyel is minősíti a telje- 
sítményt. 

A szabály Y—-A.X--B alakú. Az A, B és X véletlenszerűen vál- 
tozik 158A£10, —9E£BE10, —9EXEA10 intervallumokban. A, B, 
X egész számok. (Ezen intervallumokat korosztálytól függően a prog- 
ramban megváltoztathatjuk.) I 

A feladat egy táblázat kitöltése, amely a következő formában jele- 
nik meg a képernyőn. (14. ábra) 


14. ábra 
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Az első két oszlopót a gép mindig kitölti. A többi oszlopba vélet- 
lenszerűen írja vagy az X vagy az Y értéket. (Egy M( ) tömbbe az RND 
függvénnyel 1-et vagy 2-t írunk. Ha az érték 1, akkor a X-et írja ki, míg 
ha 2, akkor az Y-t.) Ezután sorban megkérdezi a hiányzó értékeket. 
Helyes válasz esetén beírja a táblázatba, míg helytelen válasz esetén ki- 
írja a jó megoldást, de a táblázatba X :k-ot ír. (Ez a program is tartal- 
maz ellenőrzést arra vonatkozóan, hogy a táblázatnak ne lehessen két 
azonos oszlopa.) A táblázat kitöltése után a képernyőn megjelenik a 
szabály is. Amennyiben a gép osztályzatot ad, az megegyezik a tanuló 
által adott helyes válaszok számával. (0 jó válasz is elégtelen.) 


A program fő részei: 

1. A táblázat kirajzolása a képernyőre 
2. A véletlen számok előállítása 

3. A táblázat kitöltése 

4. A teljesítmény értékelése. 


Ezeken kívül a programban található a képernyő bizonyos részének 
letörlését végző és a szüneteket, a várakozást biztosító szubrutin. 


10 REM :k SZABÁLYJÁTÉK -k 

15 CLS: PRINT$7, 0, CHR$(2);" SZABÁLYJÁTÉK" : L1 — 
1500 : GOSUB 4 000 

20 DIM XC(7), Y(7) MC) 

25 PRINT CHR$(1) 

30 CLS: PRINT "VALAMILYEN SZABÁLY ALAPJÁN EGY TÁBLÁZA- 
TOT KELL KITÖLTENI." 

40 PRINT "GYAKORLÁSRA VAGY ÉRTÉKELÉSRE AKARJÁK 
HASZNÁLNI A PROGRAMOT? (1 VAGY 2)" 

50 E$ — INKEY$: IFE$—"" THEN 50 

60IF E$— "1"? OR E$— "2?" THEN 50 

70 PRINT "CSAK 1 VAGY 2 LEHET A VÁLASZA! VÁLÁSZÖLJÖN 

. ÚJRA!" : GOTO 50 

80 E1 — VAL(E$) 

90 CLS: GOSUB 1000: REM kk TÁBLÁZAT RAJZA XX 

100 GOSUB 1200: REM kx A SZÁMOK GENERÁLÁSA -k 
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110 GOSUB 1400: REM :£ A TÁBLÁZAT KITÖLTÉSE xx 

120 GOSUB 1600: REM :k ÉRTÉKELÉS xx 

130 PRINT "HA AKARSZ MÁSIK FELADATOT, INDÍTSD ÚJRA A 
PROGRAMOT!" 

140 END 

1000 REM :k TÁBLÁZAT RAJZA x 

1010 FOR Y— 1185 TO 113 STEP —24 

1020 FOR X-—-3 TO 251: SET(X,Y): NEXTX 

1030 NEXT Y 

1040 FOR X — 3 TO 254 STEP 31 

1050 FORY — 185 TO 113 STEP —1: SET(X, Y):  NEXTY 

1060 NEXT X 

1070 PRINT$3, 3 "X"; : PRINT$5, 3, "Y";: S-1 

1080 FOR 1I—1 TO7 

1090 O — I:k5--2 

1100 PRINTSS, O, ; USING?" 3 3E"; I; 

1110 NEXT I 

1120 RETURN 

1200 REM Xx A SZÁMOK GENERÁLÁSA -k 

1210 A — RND(10) : B — RND(20)— 10: F$— ?3kdtdkdr" 

1220 FOR 1—mM1 TO7 

1222 X(1 — RND(20)—10: IF 1— 1 THEN 1230 

1224 FOR JÁ 1 TOI—1 

1226 IF X(J)— X(I) THEN 1222 

1228 NEXT J 

1230 Y(I) — AX.X(1--B 

1240 NEXT ! 

1250 FOR 1—3 TO7: M(I)  — RND(2): NEXTI 

1260 FOR 1— 1 TO7 

1270 O — 1x5--1 

1280 ON M(I) GOTO 1300, 1310 

1290 PRINT$3, O, ; USING F$; X(D; : PRINT$5, O, ; USING FS; 
Y(I) ;: GOTO 1320 

1300 PRINT$3, O, ; USING F$; X(I); : GOTO 1320 

1310 PRINT$5, O, ; USING F$; Y(1); 
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1320 
1330 
1400 
1410 


1420 
1430 
1440 


NEXT 1! 
RETURN 

REM x A TÁBLÁZAT KITÖLTÉSE x 

PRINT$7, 0, "KERESS SZABÁLYT ÉS TÖLTSD KI A TÁBLÁZA 
TÖTV 

L1 — 5000 : GOSUB 4000 

H—-42: §-Z7: 0-0: GOSUB 5000 : PRINTS$7, 0, ; 
T1$ — "TÖLTSD KI A TÁBLÁZAT" : T2$—"?. OSZLOPÁT!" 


1450 FOR 1—3 TO7 


1460 
1470 


1480 


1490 


PRINT$7, 0, T1$; I; T2$ ; 
IF M()—-1 THENZ-Y() : Z$—"Y": §S-5 ELSE Z — 
X(): 2$—"X": S-3 s 

PRINT "SZÁMÍTSD KI"; Z$; "ÉRTÉKÉT!" ; : INPUT "MENNYIT 
KAPTÁL"; Z1 

IF Z — Z1 THEN PRINT "A VÁLASZ HELYES" : H1 — H1--1 : 
PRINTSS, 53k 1--1, CHR$(22); USING F$; Z; : L1 — 1000 : GOTO 
1520 i 


1500 PRINT "A VÁLASZ HELYTELEN! A HELYES VÁLASZ "; Z;". " 
1510 PRINTSS, 51-61,  CHR$(22)?  33k"; : L1— 5000 

1520 GOSUB 4000 

1530 H— 168: 5-7: GOSUB 5000 

1540 NEXT I 


1550 RETURN 


1600 
1610 


1620 
1630 
1640 
1650 
1660 
1670 


1680 
1690 


REM :K ÉRTÉKELÉS 3 

PRINT$7, 0, "A SZABÁLY"; CHR$(2); "Y — "; A; CHR$(8); 
"XX"; USING? 4 3 "3t; B; : PRINT CHR$(1);" VOLT." 

ON H1 GOTO 1630, 1660, 1670, 1680, 1690 

PRINT "TELJESÍTMÉNYED NAGYON GYENGE!" 

IF Et!—2 THEN PRINT "ÉRDEMJEGYED : 1" 

GOTO 1710 

PRINT "TELJESÍTMÉNYED ELÉG GYENGE!" : GOTO 1700 
PRINT "TELJESÍTMÉNYED KÖZEPES! FIGYELJ JOBBAN!" 
GOTO 1700 

PRINT "ELÉG JÓL DOLGOZTÁL!" : GOTO 1700 

PRINT "NAGYON SZÉPEN DOLGOZTÁL!" 
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1700 
1710 
4000 
4010 
4020 
5000 
5010 
5020 
5030 
5040 
5050 


. Következő programunk is az egyéni gyakorlást segíti elő. Az alábbi 


IF E1—2 THEN PRINT "ÉRDEMJEGYED :"; H1 
RETURN 3 

REM xx SZÜNET xx 

FOR L—1 TOL1: NEXTL 
RETURN 

REM x TÖRLÉS xx 

PRINTSS, O, ; 

FOR JÁMA 1 TO H 

PRINT CHR$(6);" "; 

NEXT J 

RETURN 


4.5. Abszolút értékes táblázat kitöltése 


táblázatot kell kitölteni (15. ábra): 


Az a és b értékeket a gép véletlenszerűen állítja elő. Különböző ne- 
hézségi szinteket érhetünk el, választásunk szerint 1, 2 vagy 3 jegyű 


számokkal dolgozhatunk. Ezzel differenciáltan foglalkoztathatjuk a ta- 
nulókat. A gép ellenőrzést végez, hogy ne lehessen a táblázatnak két 
azonos sora. (Ekkor új b értéket állít elő.) 
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A program 6 fő része a következő: 

1. A feladat kiírása a képernyőre. 

2. A táblázat kirajzolása a képernyőre. 
3. A nehézségi szint megválasztása. 


4. Az a és b értékek előállítása és beírása a táblázatba. 
5. A táblázat kitöltése. 
6. A nyújtott teljesítmény értékelése. 


A táblázatot soronként kell kitölteni. Minden választ értékel a gép. 
Ha helyesen adtuk meg az eredményt, ezt a gép beírja a táblázat meg- 
felelő helyére. Ha az eredményünk hibás, a gép ezt közli velünk, kiírja 
a helyes eredményt, de a táblázatba XX :k-ot ír. Így a táblázat teljes ki- 
töltése után jól látható, hogy hol hibáztunk. A gép számlálja a helyes 
válaszokat (]1) a végső értékeléshez. 

Mivel a program célja a gyakoroltatás, ezért csak szöveges értékelést 
ad a gép. (Ez persze nem zárja ki azt, hogy számonkérésre is használ- 
juk, és a kitöltött táblázat alapján osztályozzunk.) 

Ha a 18 válaszból 


18 helyes — , Gratulálok! Kiváló!" 
16—17 helyes — , Jó munka!" 
12—15 helyes — , Figyelmesebben!" 
0—11 helyes — , Sokat kell még gyakorolni!" 
felirat jelenik meg a képernyőn. 


Ebben a programban is megtalálható a képernyő bizonyos sorainak 
törléséről gondoskodó, valamint a szünetet eredményező szubrutin. 
. Még egy megjegyzés a programmal kapcsolatban. Az abszolút ér- 
ték jelölésére a függőleges vonalat a CHRS$(138)-cal állítottuk elő. 
A táblázat fejlécében ez viszont nem használható, (1 teljes pozíciót igé- 
nyel, és ennyi hely nincs!) ezért itt SET utasításokkal rajzoltuk ezeket a 
megfelelő helyekre. (2070—2120). A kérdéses pozíciókat pedig a 2080-as 
sorban lévő DATA utasításba írtuk. 


Fontosabb jelölések még: § 

E() tömbben találhatók az aktuális kitöltendő sor helyes értékei 
(3020) 

F$() tömbben tároltuk a fejléc egyes elemeit, hogy többször és 
könnyen megjeleníthetők legyenek a képernyőn. (40, 50, 
60-as sorban lévő értékadások és 3050-es sorban a felhasz- 
nálás). 
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10 
20 
30 
. 40 


(50 


60 
70 
. 80 
90 
100 
110 
115 
120 


130 
1000 
1010 


1020 


1030 
1040 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
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A fentiek alapján programunk a következő : 


REM :3k ABSZOLÚT ÉRTÉKES TÁBLÁZAT KITÖLTÉSE x 

DIM F$(6), A(3), B(3), E(6) 

Z$ — CHR$(138) : F$— ?dtdkdt dr? 

F$(1) — Z$--"a"-3-Z$ : F$(2) — Z$1-"b"-Z$ : F$(3) — Z$-- 

h"a"3Z$3"—b" 

F$(4) — "a—"3-Z2$4-"b"-Z$ : F$(5) — Z$--"a"-1-Z$-- 

7" 47$1-"b"-3Z$ 

F$(6) — 2$--"a—b"-3-Z$ 

CLS : GOSUB 1000 : REM Xx A FELADAT KIÍRÁSA 

CLS : GOSUB 2000 : REM x A TÁBLÁZAT RAJZA -k 

GOSUB 2300 :REM :k FELTÉTELEK KIVÁLASZTÁSA -k 

GOSUB 2500 : REM :k A SZÁMOK GENERÁLÁSA -x 

GOSUB 3000 : REM Xx A TÁBLÁZAT KITÖLTÉSE 

GOSUB 4100 : REM kX ÉRTÉKELÉS -x 

PRINT "HA AKAR MÁSIK FELADATOT, INDÍTSA ÚJRA A 
PROGRAMOT!" 

END 

REM XX A FELADAT ISMERTETÉSE :k 

PRINT "A PROGRAM EGÉSZ SZÁMOK ABSZOLÚT . ÉRTÉKÉ 

NEK" 

PRINT "MEGHATÁROZÁSÁNAK ÉS EZZEL VALÓ SZÁMO 

LÁS-" ; 

PRINT "NAK GYAKOROLTATÁSÁRA SZOLGÁL." 

PRINT "MEGADHATJUK, HOGY MAX. HÁNY JEGYŰ SZÁM 

OK-" 

PRINT "KAL KÍVÁNUNK DOLGOZNI (1, 2, VAGY 3)" 

PRINT "A VÁLASZOKAT A GÉP ÉRTÉKELI." 

PRINT "HELYES VÁLASZ ESETÉN AZ EREDMÉNYT BEÍRJA" 

PRINT "A TÁBLÁZATBA" 

PRINT "HELYTELEN VÁLASZ ESETÉN A GÉP KIÍRJA A JÓ" 

PRINT "EREDMÉNYT, DE A TÁBLÁZATBA 3:k-OT ÍR." 

PRINT "HA ELOLVASTA ÉRINTSEN MEG EGY BETŰT!" 

IF INKEY$ — " " THEN 1120 


1130 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


2090 
2100 
2110 
2120 
2130 
2300 
2310 
2320 
2330 
2335 


2336 
2337 
2340 
2350 
2500 
2510 
2520 
2530 
2540 
2550 
2560 


2562 


RETURN 

REM xx TÁBLÁZAT -k 

FOR Y- 185 TO 89 STEP —24 

FORX-3 TO251: SET(X, YY: NEXTX 

NEXTY 

FOR X—-3 TO 254 STEP 31 i 

FORY— 185 TOS9STEP —1: SET(X,Y): NEXT Y 

NEXT X 

PRINT$1, 2, "a b a b a—b a-—b a-—b a—b"; 

DATA 72, 82, 102, 112, 133, 142, 176, 184, 194, 200, 206, 214, 223, 

244 

FOR 1-1 TO 14 

READ X 

FOR Y-177 TO 169 STEP —1: SET (X, YY: NEXTY 

NEXT I ; 

RETURN 

REM xx A FELTÉTELEK KIÍRÁSA :x 

PRINT$9, 0, "LEGFELJEBB HÁNY JEGYŰ SZÁMOKKAL AKAR" 

PRINT "DOLGOZNI (1, 2, VAGY 3)"; : H — 126 

INUTO: IF 0-5 —1 ANDO—- —3 THEN 2340 

PRINT "CSAK 1,2, VAGY 3 LEHET A VÁLASZA! VÁLA- 
SZOLJON ÚJRA!" 

FOR 1-1 TO 1000: NEXT 1 

PRINT$11, 0,; : GOSUB 5000 : PRINT$11, 0,; : GOTO 2330 

PRINT$9, 0, ; : GOSUB 5000 

RETURN 

REM xx A SZÁMOK GENERÁLÁSA - 

FOR N—1 TO6G 

ON 0 GOTO 2530, 2540, 2550 

V — RND(19)—10 : F$— "3kiki4k" : GOTO 2560 

V — RND(199y—100 : GOTO 2560 

V — RND(999)—500 

S — 2XINT ((N--1)/2)--1 : IF N/2 — INT (N/2) THEN O — 6 : 

B(N/2)— V ELSE0—1 : A((N-H1)2)—V : GOTO 2570 

IF Nz — 2 THEN 2570 i 
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2564 
2566 
2568 
2570 
2580 
2590 
3000 
3010 
3020 


3030 
3040 
3050 
3060 
3070 
3080 


3090 
3100 
3110 
3120 
3130 
3140 


3150 


3160 
4000 
4010 


FOR J— 1 TO N/2—1 
IF  A(J) — A(N/2) AND B(Jj) — B(N/2) THEN 2520 
NEXT J j 

PRINT$S, O, ;  USING F$; V; 

NEXT N 

RETURN 

REM 3x.A TÁBLÁZAT KITÖLTÉSE . 3 

FOR 1—1 TO3 

E(1) — ABS(A(I)) : E(2) — ABS(B(I)) : E(3) — E(1)—B(I) : .E(4) — 
— A(I)—E(2) : E(5) — E(1)—E(2): E(6) — ABS(A(1)—B(1)) 
PRINT$9, 0, "TÖLTSE KI A TÁBLÁZAT" ; I; ?". SORÁT!" 
FOR K—1 TO6 

PRINT$10, 0, F$(K); : INPUT W 

IF E(K) — W THEN 3090 


PRINT "A VÁLASZ HELYTELEN, A HELYES VÁLASZ"; E(K); 

S-2xI--1 : O — (K4-1):k5--k1 : PRINT$S, O, CHR$(22);" 
kk"; :L1— 1500: GOSUB 4000 : GOTO 3120 

PRINT "A VÁLASZ HELYES. "; : Jt —]J1-1 


S — 2XI--1 : O — (K--1)k53-1 : PRINT$S, O, CHR$(22); 
PRINTUSIÍNG F$; W;.: L1— 500 : GOSUB 4000 . 
PRINTS$10, 0,; :.. H—.130 : GOSUB 5000 

NEXT K 

H — 84 : PRINTS$9, 0,; :. GOSUB 5000 

NEXT I ; 

RETURN 

REM 3 SZÜNET :k 

FOR L—1 TOL1: NEXTL 


4020 RETURN 
4100 REM :k ÉRTÉKELÉS -x 


4110 
4120 


4130 
4140 
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PRINTS$9, 0, ; 

IF JI — 18 THEN PRINT "GRATULÁLOK! KIVÁLÓ!" : GOTO 
4160 

IF JI — 16 THEN PRINT "JÓ MUNKA!" : GOTO 4160 

IF JI — 12 THEN PRINT "FIGYELMESEBBEN!" : GOTO 
4160 5; 


4150 PRINT "SOKAT KELL MÉG GYAKOROLNI!" 
4160 RETURN : 

5000 REM Xx TÖRLÉS x 

5010 FOR JÁMA 1 TOH 

5020 PRINT CHR$(6)" "; 

5030 NEXT J 5 

5050 RETURN 


4.6. A számítógép mint segítőtárs egy feladat megoldásában 


A következő program arra mutat példát, hogy konkrét feladat meg- 
oldásánál hogyan használhatjuk a számítógépet. Természetesen nem sok 
értelme lenne olyan feladatot választanunk, ahol a számítógépet csak 
arra használnánk, hogy a feladat szövegét a képernyőn megjelenítsük. 
Olyan feladatoknál, ahol a megoldás több lépésből áll, az egyes rész- 
eredmények értékelése, korrigálása, magyarázása segítséget nyújthat a 
feladat megértésében, további lépéseinek helyes megoldásában. A géppel 
való dolgozás nagy előnye, hogy akárhányszor újra lehet kezdeni, s.a gép 
mindig ugyanolyan türelmesen válaszol. (Nagy előny ez abból a szem- 
pontból is, hogy senki sem jegyzi, még a gép sem, hogy a gyereknek 
hányszor kellett végignéznie, próbálgatnia a feladat megoldását, amíg 
azt megértette. Éppen ezért bátrabban is él ezzel a lehetőséggel.) 

Az itt bemutatásra kerülő feladat a következő: 

A 16. ábra felső köréből kiindulva és a nyíllal jelölt irányban haladva, 
hányféleképpen juthatunk el az egyes körökhöz? A lehetséges utak szá- 
mát írd be a körökbe! 

A gép felrajzolja az ábrát, és kiírja a feladatot. (Írásra a képernyő 
alsó 6 sora van fenntartva.) A válaszadásnál mindig arra a körre vonat- 
kozó számot kell beírni, ahol egy :k villog. Ha nem jó a válaszunk, a 
gép ezt kiírja a képernyőre. A megfelelő magyarázat után (nyíllal meg- 
jelöli, melyek azok a helyek, vagy melyik az a hely, ahonnan a kérdéses 
körbe juthatunk) a helyes választ beírja a szóban forgó körbe, s azután 
továbbhalad. Ha jó választ adunk, beírja a megfelelő helyre, és áttér a 
következő körre. 05 
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egási 


Es Sz 


16. ábra 


A nagyon rövid főprogram mindössze a következőkből áll: 

— Az adatok elhelyezése. (A$( ) tömbben tároljuk a feladat meg- 
oldását jelentő konstansokat. Ezeket a 30-as DATA utasításba 
írjuk, és 40—55-ig olvassuk be a tömbbe.) 

— Három szubrutin hívás 


A szubrutinok a következő teendőket végzik : 
1. A feladat kiírása. 
2. A rajz készítése. 
3. A válaszok értékelése és a számok beírása a körökbe. 


A rajzoló szubrutin még kört és egyenest rajzoló szubrutint használ. 
Ennél is, mint minden rajzot készítő programnál, nagyon fontos az ábra 
pontos megtervezése a képernyőn. 5 sort kell rajzolni, minden sorba any- 
nyi kört, ahányadik sorról van szó. (Így ez két egymásba ágyazott cik- 
lus.) A legfelső kör középpontja (126, 185). Egy sorral lejjebb lépés az 
X, Y koordinátákat 24, 24-gyel csökkenti, míg az egy szinten lévő körök 
középpontjai közötti távolság (X koordináta) 48. Ezeket figyelembe véve 
készült a rajzoló szubrutin. Nem kevesebb tervezést igényel a számoknak 
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- 


a megfelelő körökbe való írása. (Az egyes körsorok között a távolság 
2 betűsor, míg az egy sorban lévő körök között 8 pozíció.) 


és a 


10 
20 
30 


40 
45 
50 
55 
58 
69 
70 
80 
100 
500 
510 


520 


530 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1080 
1090 
1100 


Programunkban még megtalálható a bizonyos sorok törlését végző 
szünetet biztosító szubrutin. 


CLS 

DIM A$(5, 5) i 
DATA ád já 94 ké édi ! köz hai jú? 67 Aáe 99 a 971 pr 93 jú "3 és "a ké "4 Tk 
VA", ng", "4", e 

FOR JA 1 TO5 

FOR 1—1 TOJ 

READ A$(J, 1) 

NEXTI: NEXTJ 


GOSUB 500 : REM Xx A FELADAT KIÍRÁSA -x 
GOSUB 1000 : REM Xx RAJZ xx 

T1 — 210 

GOSUB 2000 : REM kk SZÁMOK BEÍRÁSA xx 
END 

REM XX A FELADAT KIÍRÁSA -k 


PRINT$10, 0, "AZ ÁBRA FELSŐ KÖRÉBŐL KIINDULVA ÉS A 
NYÍL-LAL JELÖLT IRÁNYBA HALADVA HÁNYFÉLEKÉPPEN 
JUTHATUNK EL AZ EGYES KÖRÖKBE?" 

PRINT "AMELYIK KÖRBEN VILLOG A xx, AZ ARRA VONAT- 
KOZÓ SZÁMOT ÍRJAD BE!" 

RETURN 

REM :k RAJZ xx 

FOR JÁ—A 1 TO5 

FOR 1—1 TOJ 

01 — 126—(]J—1)3x24--(I—1)k48: O2 — 185—(]J— 1) 24 
GOSUB 1200: REM :k KÖR RAJZA -k 

IF J— 5 THEN 1080 i 

X — 01—6: Y — 02—6: GOSUB 1400 : REM XNYÍL RAJZA XX 
NEXT I 

NEXTJ 

RETURN 
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1200 
1210 
1220 
1230 
1240 
1250 
1260 
1400 
1410 


1420 
1430 
1440 


1450 
1460 
2000 
2010 
2020 
2030 
2035 
2040 
2050 
2060 
2070 
2075 


2080 
2090 


2095 
2100 
2105 
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REM :k KÖR RAJZA xx 

R-—7 

FOR K—3.15XR TO —3. 15XR STEP —1 

F5K/R : X — 014R:KCOS(F) : Y — 02--R-XSIN(F) . 

SET (X, Y) 

NEXTK 

RETURN 

REM xx NYÍL RAJZA xx ; 
FORL-O TO 13: SET(X—L, Y—L): SET(X--12--L, Y—L,) : 
NEXTL 

X1 — X—13 : Y1 — Y—13 : X2 — X1--38 

FORL—-1TO3 

SET (X1, Y1--L) : SET(X1--L, Y1) : SET(X2, Y1--L) : SET(X2— 
L, Y1) 

NEXTL 

RETURN 

REM :x SZÁMOK BEÍRÁSA - 

FOR Jm2 TO5 

S — 2x(J—1) : O — 20—(J—1)x4 

FORI-1TOJ 

F$—? ": 01—0: S§1—10: GOSUB 4000 

PRINT$ S, 0--(I—1)k8, "xx"; 

H1— 100 : GOSUB 5000 

PRINT CHR$(8); : GOSUB 5000 

IF F$— "" THEN 2040 

IF  F$ — A$(]J, ) THEN PRINT$10, 0, "HELYES!"; : T1 — 40 : 
H1 — 250 ELSE 2090 : 
PRINT$S, O--(I—1):k8, A$(], D; : GOSUB 5000 : GOTO 2200 
PRINT$10, 0, " NEM JÓL VÁLASZOLTÁL! NÉZD MEG HONNAN 
JUT — HATSZ EBBE A KÖRBE!"; 

H1— 1500: GOSUB 5000: T1—80: S§1— 10: O01—0: GO 
SUB 4000 

IF J — 2 THEN PRINT$10, 0, " CSAK EGY ÚTON ÉRKEZHETSZ!" : 
H1 — 800 :. TI — 40: GOTO 2080 

J1—J—1: I151—1: 2-1 


2110 
2120 


2125 
2130 


2135 
2140 
2150 


2160 


2170 
2175 


2180 
2190 
2200 
2210 
2220 
. 3000 
3010 
3020 
4000 
4005 
4010 
4020 
4030 
4040 
5000 
5010 


IF 15 1FOR?I—)] THEN 2120 ELSE 2150 
S1—23(J1—1—1: IFI—-1 THEN O1 6 220—(]1—1):k4-k 
(12—1)388 ELSE 01 — 20—(J1—1)3k4--(I11—1) 8 

GOSUB 3000 

PRINT$10, 0, "CSAK A MEGJELÖLT HELYRŐL JÖHETÜNK EBBE 
A KÖRBE ÍGY IDE IS UGYANANNYI ÚT VEZET MINT AZ ELŐ- 
ZŐBE." i 

H1 — 2500 : GOSUB5000: T1—1: GOSUB 4000 

T1— 200: H1— 200: GOTO 2080 

S1 — 2X(]11—1)—1: 01 — 20—(J1—1)3k4--(I1—1)3k8  : GOSUB 
3000 : O1 — 20—(J1—1)364--(I2—1) 8 : GOSUB 3000 
PRINT$10, 0, "EBBE A KÖRBE A MEGJELÖLT KÉT HELYRŐL 
JÖHE— TÜNK MIVEL A FENTI KÖRÖKBE ";A$(J—1, 1—1);?" 
ILLETVE ";A$(J—1, 1);" Ú—- TON ÉRKEZHETÜNK, ÍGY EB 
BE A KÖRBE "; 


PRINT A$(J—1,1—1); "--"; A$(J—1, D; "—"; A$(J,);" ÚT VE 
ZET i 
H1— 2500: GOSUB 5000: T1—1: GOSUB 4000 : 01 —- 01 


—8 : GOSUB 4000 
T1 — 200 : H1 — 200 : GOTO 2080 


PRINT$J—1, I, CHR$(60);" "; 
NEXT Ij 
NEXT J 
RETURN 
REM :£ NYÍL RAJZOLÁSA -k 


PRINT$S1, O1, CHR$(133); 
RETURN 
REM :k TÖRLÉS -x 


-PRINTSS1, O1,; 


FOR T—1 TO T1 
PRINT CHR$(6);""; 
NEXTT 
RETURN 
REM :k SZÜNET 3 
FOR H—1 TO H1 
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5015 IF F$ — " " THEN F$ — INKEY$ 
5020 NEXT H 
5030 RETURN 


4.7. A sík egybevágósági transzformációi közötti 
kapcsolat bemutatása 


A számítógépet felhasználhatjuk mint demonstrációs eszközt is. 
Az előre elkészített élettelen ábrákkal szemben a számítógép rajzai előt- 
tünk készülnek, dinamikusak. Jól hasznosíthatjuk ezt különösen a geo- 
metria oktatásában vagy a függvényekkel kapcsolatos témakörök taní- 
tásakor, illetve minden olyan esetben, amikor fontos a szemléltetés, és 
ez számítógéppel megoldható. Példaként tekintsünk egy, a sík egybevá- 
gósági transzformációinak néhány kapcsolatát bemutató programot. 
Akár összefoglaló órán használhatjuk, — ekkor a teljes programot — 
akár részekre bontva, egyes részeit külön bemutatva, új anyag feldol- 
gozásánál. (Az eltolás, a forgatás vagy középpontos tükrözés oktatásá- 
nál.) j 

A program a bemutatandó transzformációs kapcsolatok kiírásával 
kezdődik. Ezek a következők: 

1. Két egymással párhuzamos tengelyre való tükrözés — a ten- 

gelyekre merőleges irányú eltolás. 

2. Két egymást metsző tengelyre való tükrözés — a tengelyek met- 
széspontja körüli elforgatás. 

3. Ha a két egymást metsző tengely merőleges, akkor a tengelyekre 
való tükrözés — a tengelyek metszéspontjára való középpontos 
tükrözés. 

Ezek közül választhatjuk ki, hogy melyiket akarjuk megnézni. 

A program szerkezete is ezt a tagolást követi. Az előbb felsorolt 
lehetőségek megvalósítása rendre az 1000, 2500, és 1500. sorral kezdődő 
szubrutinokkal történik. 

A képernyőre az alábbi ábrák kerülnek felrajzolásra a fenti sorren- 
det figyelembevéve (17, 18, 19. ábra) 


A rajzolást a következő szubrutinok végzik. 
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A ket egymassal parhuzamos tengelyre va- 


ló tükrözés helyettesíthető egy, a tenge- 
lyekre meroleges iranyu eltoldssal. 


17. ábra 


Az 5000. sorral kezdődő szubrutin végpontjaival adott szakaszt 
rajzol. Ezzel a szubrutinnal valósítjuk meg a tengelyek és a háromszögek 
oldalainak rajzát. A végpontok koordinátáit DATA utasításokban he- 
lyeztük el. (A 17. ábrához tartozó adatok 400—450, a 18.-hoz az adatok 
510—570, míg a 19. ábra adatai a 460—500 sorok DATA utasításaiban 
vannak. 

A megfelelő végpontok beolvasása a 2000. sorral kezdődő szub- 
rutinnal történik, és ez a szubrutin végzi a szakaszt rajzoló szubrutin 
paramétereinek beállítását. 3 

A 6000-től induló szubrutin körívet rajzol a középpontos forgatás- 
hoz. 

Szüneteket a 3000-es szubrutinnal biztosítunk. 
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Két egymast 
metszo tengely- 
re valo tükrözés 
helyettesíthe - 
to a tengelyek 
metszespontja 
köruli elforga - 


, 
tassal. 


18. ábra 
10 REM XxEGYBEVÁGÓSÁGI TRANSZFORMÁCIÓK KAPCSOLA- 
TA: 
20 CLS : PRINT$6, 0, CHR$(2); "EGYBEVÁGÓSÁGI TRANSZ — 
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FORMÁCIÓK NÉHÁNY KAP— CSOLATÁNAK BEMUTATÁSA"; 

CHR$(1) ; 

H1 — 5000 : GOSUB 3000 

CLS : PRINT "1. KÉT EGYMÁSSAL PÁRHUZAMOS TENGELYRE 

VA— LÓ TÜKRÖZÉS — A TENGELYEKRE MERŐLEGES 1— 
RÁNYÚ ELTOLÁS." 

PRINT "2. KÉT EGYMÁST METSZŐ TENGELYRE VALÓ TÜK — 

RÖZÉS — A TENGELYEK METSZÉSPONTJA KÖRÜLI ELFOR 

GATÁS." : 

PRINT "3. HA A KÉT EGYMÁST METSZŐ TENGELY MERŐ — 

LEGES, AKKOR A TENGELYEKRE VALÓ TÜKRÖ — 


A két egymásra merő - 
leges tengelyre valo 
tükrözes helyette - 
síithető a tengelyek 


[/ éz 86 
metszespontjara va - 


lo 


60 


70 
80 


90 
95 


96 
100 


tükrözessel 


t 
ÉS 2 
! e ES gu s 
v 
V4 
va 
ft c: 
177 
j 
[J 
; t 
1 


19. ábra 


ZÉS — A TENGELYEK METSZÉSPONTJÁRA VALÓ KÖZÉP 
PONTOS TÜKRÖZÉS. " 

PRINT "MELYIKET AKAROD MEGNÉZNI (1, 2, 3), VAGY BE 
AKAROD FEJEZNI (4); 

INPUT V 

IF V.21 OR V5.4 THEN PRINT "A VÁLASZOD ROSSZ! VÁLA 
SZOLJ ISMÉT!"; : GOTO 70 

IF V — 4 THEN END 

CLS: PRINT "HA AZ ÁBRÁT MÁR NEM AKAROD NÉZNI, 
ÉRINTS MEG EGY BETŰT!" 

H1 — 3000 : GOSUB 3000 § 


ja 


ON V GOSUB 1000, 2500, 1500 
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110 
120 
130 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
1000 
1010 
1040 
1050 
1060 
1070 


1080 


1100 


IFINKEY$ —" "THEN 110 

GOTO 30 

GOTO 130 

DATA 85, 48, 85, 170, 175, 48, 175, 170 

DATA 0, 60, 70, 95, 70, 95, 70, 130, 70, 130, 0, 60 

DATA 100, 95, 170, 60, 170, 60, 100, 130, 100, 130, 100, 95 

DATA 180, 60, 250, 95, 250, 95, 250, 130, 250, 130, 180, 60 

DATA 0, 50, 180, 50 

DATA 0, 60, 180, 60, 70, 95, 250, 95, 70, 130, 250, 130 

DATA 0, 90, 240, 90, 125, 180, 125, 5 

DATA 40, 100, 110, 135, 110, 135, 110, 170, 110, 170, 40, 100 
DATA 140, 135, 210, 100, 210, 100, 140, 170, 140, 170, 140, 135 
DATA 140, 45, 210, 80, 210, 80, 140, 10, 140, 10, 140, 45 

DATA 40, 100, 210, 80, 110, 135, 140, 45, 110, 170, 140, 10 
DATA 5, 45, 140, 180, 5, 60, 170, 60 

DATA 30, 120, 80, 140, 80, 140, 80, 170, 80, 170, 30, 120 

DATA 80, 70, 100, 120, 100, 120, 130, 120, 130, 120, 80, 70 
DATA 80, 50, 100, 0, 100, 0, 130, 0, 130, 0, 80, 50 

DATA 20, 60, 62, 30, 121, 80, 50 

DATA 20, 60, 100, 80, 140, 100, 0 

DATA 20, 60, 126, 80, 171, 130, 0 

REM :KKÉT PÁRHUZAMOS TENGELYRE VALÓ TÜKRÖZÉS x 
CLS : RESTORE 

FORI—1TO 11 

L1 — 1 : GOSUB 2000 

NEXT I j 
PRINT$1, 11, "t"; CHR$(16); "1"; CHRS$(17); TAB(26); "t"; 
CHR$(16); "2"; CHR$(17); 

PRINT$13, 0, "A KÉT, EGYMÁSSAL PÁRHUZAMOS TENGELYRE 
VALÓ — TÜKRÖZÉS HELYETTESÍTHETŐ EGY, A TENGE — 
LYEKRE MERŐLEGS IRÁNYÚ ELTOLÁSSAL. " ; 

GOSUB 2000 : SET(X2—2, Y2—2) : SET(X2—2, Y2--2) : SET 


(X2—1, Y2—1) : SET(X2—1, Y2-1-1) 


1110 
1120 
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EE 
FOR 1—M1 TO3 


1130 
1140 
1150 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
2000 
2010 
2030 
2040 


2050 
2060 
2070 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


GOSUB 2000 
NEXT I 
RETURN 


REM :£ KÉT MERŐLEGES TENGELYRE VALÓ TÜKRÖZÉS x 


CLS : RESTORE 460 

FOR 1—1 TO11 

L1—1: GOSUB 2000 

NEXT I 

PRINT$O, 18, "t"; CHR$(16); "1"; CHR$(17); 
PRINT$7, 39, "t"; CHR$(15); "2"; CHR$(17); 
PRINT$9, 0, "A KÉT EGYMÁSRA MERŐ-"; 
PRINT$10, 0, "LEGES TENGELYRE VALÓ"; 
PRINT$11, 0, "TÜKRÖZÉS HELYETTE-"; 
PRINT$12, 0, "SÍTHETŐ A TENGELYEK?" ; 
PRINT$13, 0, "METSZÉSPONTJÁRA VA-?"; : 
PRINT$14, 0, "LÓ TÜKRÖZÉSSEL. "; 

L1 — 3 

FOR 1—1 TO3: GOSUB 2000 : "NEXT I 
RETURN c 

REM :k A SZAKASZ VÉGPONTJAI XX : 
READ X1, Y1, X2, Y2 : SET(X1, Y1) : SET(X2, Y2) 
IF XI — X2 THEN 2050 


IF ABS (((2—Y1)(X2—X1)—1 THENW—C 1: P1— XI : 


X2: O1—- YI: 92—Y2: GOTO 20460 
W-2: PI-5Y1I: P2—-hY2: 01—XI: 92—X2 
GOSUB 5000 

RETURN 

REM :k EGYMÁST METSZŐ TENGELYEK -x 
CLS : RESTORE 510 

FOR 1-1 TO11 

L1—1: GOSUB 2000 

NEXT I 

PRINT$1, 19, "t"; CHR$(16); "1": CHR$(17); 
PRINT$10, 25, "t"; CHR$(16); "2"; CHR$(17); 
PRINT$1, 27, "KÉT EGYMÁST"; 


ő 


P2 — 
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2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
3000 
3010 
3020 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 


PRINT$2, 27, "METSZŐ TENGELY-?"; 
PRINT$3, 27, "RE VALÓ TÜKRÖ-" ; 
PRINT$4, 27, "ZÉS HELYETTE-" ; 
PRINT$5, 27, "SÍTHETŐ A TEN-"; 
PRINT$6, 27, "GELYEK METSZÉS-" ; 
PRINT$7, 27, "PONTJA KÖRÜLI"; 
PRINT$8, 27, "ELFORGATÁSSAL." 
FOR1—1TO 3 : GOSUB 6000 : NEXT ! 
RETURN 

REM :k SZÜNET x 

FOR H—1 TOHI: NEXTH 


RETURN 

REM XX RAJZ Xx 

IF PIsP2 THENL—-L1 ELSE L— —L1 
FORP- PI TOPZ2STEPL 


9 — (22—01)/(P2—P1):x(P—P1)-- 01 
IF W—1 THEN SET(P, 0) ELSET SET(O, P) 
NEXT P 

RETURN 

REM 3 KÖR Xk 

READ O1, 02, R, X1, Y1, X2, Y2 

DEFSNG K, F 

FOR K—1. 57XR TO --1. 57XR STEP —4 
F — K/R 

X — O14RXCOS(F) : Y— 02-3-R-XSIN(F) 

IF X-X1 THEN 6090 

IF Y-YI OR Y-2Y2 THEN 6090 

SET (X, Y) 

NEXT K 

RETURN 


4.8. Nyitott mondatok grafikus megoldása 


A differenciált foglalkoztatás megvalósításának egy kiváló eszköze 


a számítógép. Mindenki önállóan dolgozhat, képességének megfelelő 
gyorsasággal. Rossz megoldás esetén ugyanolyan nehézségű feladatot 
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ad a gép. Csak akkor haladhat tovább, ha a feladatot jól oldotta meg, 
Így fokozatosan nehezebb és nehezebb feladatokat kell megoldani, s 
közben, ahol erre szükség van, gyakorolhat. A géppel való dolgoztatás 
nagy előnye, hogy a tanár több gyermeket is könnyebben irányíthat, 
mint hagyományos módon. (Nem ő ellenőrzi a megoldás helyességét, 
nem ő ad új feladatot, a gyerek folyamatosan dolgozhat, nem kell meg- 
várnia, amíg a tanár eljut hozzá, hogy az értékelést elvégezze, és a további 
feladatot kijelölje.) A következő programmal ilyen differenciált foglal- 
koztatást valósíthatunk meg. A témakör, ami feldolgozásra került, a 
nyitott mondatok grafikus megoldása. 


A nehézségi fokozatok a következők : 


1. Egyenlet — mindkét oldal elsőfokú. 

2. Egyenlőtlenség — mindkét oldal elsőfokú. 

3. Egyenlet — a bal oldal másodfokú, a jobb oldal elsőfokú. 

4. Egyenlőtlenség — a bal oldal másodfokú, a jobb oldal elsőfokú. 


(Ez több fokozattá bővíthető, ha 5.-nek olyan egyenletet engedünk 
meg, ahol mindkét oldal másodfokú, és a 6. fokozat az ugyanilyen tí- 
pusú egyenlőtlenség lehet.) 

A másodfokú kifejezésben elsőfokú tag nem szerepel. Az 1., 2., 
illetve 3., 4. nehézségi fokozatra 10—10 feladat van a gépbe tárolva, s 
ezeket — illetve — vagy — jelekkel adja a gép. (A 2. és a 4. nehézségi 
fokozatnál a — illetve — jeleket véletlenszerűen választja a gép.) A 10—10 
feladat közül is véletlenszerűen választ a gép, de mindaddig jegyzi a ka- 
pott feladat sorszámát, amíg az elsőfokú feladatokról a másodfokúra 
át nem térünk. Így lehet kiküszöbölni, hogy ugyanazt a feladatot kétszer 
kaphassa a tanuló. (Kivéve, ha már az adott típusból mindegyik feladatot 
megoldotta.) Ha a megoldással elkészült, beírja az eredményét, amit a 
gép értékel. Ha jó a megoldás, kaphatja a nehezebb feladatot, de be is 
fejezheti, ez esetben a gép kiírja, hogy melyik fokozatot teljesítette. 
(A következő alkalommal innen indulhat.) Ha rosszul oldotta meg a 
feladatot, a gép kirajzolja a képernyőre a megoldás lépéseit, és kiírja 
a megoldást. Ekkor az új feladat nehézségi foka azonos lesz a régivel. 
(A kirajzolást egyébként jó megoldás esetén is kérhetjük a géptől.) 
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A program a következő fő részekből, szubrutinokból áll: 


— A feldolgozott témakör megjelölése. (1000—) 

— A nehézségi fok kiírása, kiválasztása. (1300—) 

— A feladat kijelölése (RND függvénnyel) a nehézségi fok alapján. 
(1400—) 

— A feladat kiírása a képernyőre. (2000—) 

— A feladat megoldása. (2300—) 

— A válasz (a megoldás) megadási módjának közlése. (2600—) 

— A válasz lekérdezése. (2800—) 

— A válasz értékelése (3300—) 

— Az értékelés eredményének kiírása. (7800—) 


A főprogram a felsorolt szubrutinok hívásán kívül megszervezi a 
továbbhaladást (nehezebb vagy azonos szintű feladattal) vagy a megállást. 
(130—220) 

Ezeken kívül még kisebb szubrutinok vannak a programban, ilye- 
nek pl. az ábrázolást végző szubrutin által hívott koordináta tengelyt 
vagy egyenest, illetve parabolát rajzoló szubrutinok. (Itt is megtalál- 
hatók a szüneteket és a törlést biztosító szubrutinok.) 

A válasz lekérdezését végző szubrutin egyszerűbb formában is fel- 
írható, amennyiben a válaszadás módját jobban korlátozzuk. (Pl. az X 
betűt mindig bal oldalra kell írni, szóközöket nem lehet írni, vagy másod- 
fokú egyenlet esetén a gyököket növekvő sorrendben kell megadni stb.) 
Ebben az esetben kényelmetlen lehet a program felhasználása a sok meg- 
kötés miatt. Ha viszont több szabadságot engedünk meg, a programun- 
kat kell mindezekre felkészíteni. Ilyen pl. a szóközök kiszűrését végző 
szubrutin (3100—). 

Általánosan is igaz, hogy egy program felhasználása, futtatása ké- 
nyelmesebb legyen az alkalmazó számára, ahhoz a program készítőjé- 
nek kell nehezebb feladatot megoldani. 

A feladatok adatait DATA utasításokban helyeztük el (500—), 
de természetesen azokat itt is olvashattuk volna szalagról is. 
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70 


80 
90 
100 
110 
120 


130 
140 
150 


160 
170 


180 
185 
190 
200 
210 
220 
500 
510 


CLEAR 1000 

REM :£ DIFERENCIÁLT FOGLALKOZTATÁS A NYITOTT MON- 
DATOK TÉMAKÖRÉBŐL. :xk 

DEFINT D, X : . DIM VS(10) : FS-— 1 : RANDOM 


CLS : GOSUB 1000: REM : A FELADAT KIÍRÁSA :k 

Z- 12000 : GOSUB 5000 : CLS 

GOSUB 1300 

GOSUB 1400 : REM x FELADAT KIJELÖLÉSE 3 

GOSUB 500 : M$(I, 1—"": M$(Il, 29—?" : KI$—" " : 
K2$ — "? " : N1$—? " : N2§—"" 

CLS : PRINT "OLDD MEG GRAFIKUSAN A KÖVETKEZŐ NYI- 


TOTT — MONDATOT ! " : GOSUB 2000 : REM kk A FELADAT 
KIÍRÁSA A KÉPERNYŐRE 3k 

GOSUB 2300 : REM Xx A FELADAT MEGOLDÁSA 3 
GOSUB 2600 : REM XA VÁLASZ MEGADÁSÁNAK MÓDJA 3k 
GOSUB 2800 : REM :k A VÁLASZ LEKÉRDEZÉSE 
GOSUB 3300 : REM :k ÉRTÉKELÉS 3 

CLS : GOSUB 7800 : REM 3 AZ ÉRTÉKELÉS EREDMÉNYÉN 
EK KIÍRÁSA :k 

CLS: IF JO-—2 THEN 60 

IF NF—4 THEN 200 

PRINT "MEGÁLLSZ ENNÉL A NEHÉZSÉGI FOKNÁL 0 

VAGY DOLGOZHATUNK TOVÁBB (2)"; 

INUTZ: IFZ— 1 THEN 190 

NF — NF--1 : IF NF — 3 THEN FOR1—1TO 10 : VS() — 0 : 
NEXT I : FS — 1 

CLS : GOTO 60 

IF NF — 1 THEN PRINT "AZ"; ELSE PRINT "A"; 

PRINT NF; CHR$(8); ". NEHÉZSÉGI FOKOT TELJESÍTETTED. " ji 
IF NF — 4 THEN PRINT "GRATULÁLOK!" : GOTO 220 
PRINT "LEGKÖZELEBB INNEN FOLYTATHATOD!" 

END 

REM :k ADATOK x 

DATA 3), 1, 1, 3, 4, 0, 6, 2, 2, 5, —1,.—1, 2, 1, 1, 2, —2, 8, 1, 2 


101 


520 


530 
540 


550 


560 
570 
580 
590 
600 
1000 
1010 


1020 


1030 
1040 


1050 


1060 
1300 
1310 
1320 
1330 


1340 


1350. 


1360 
1370 


DATA 2.-—3, —1; 3. —4 0, 2, —6, 620, 4 3.20, 3.14 
ES NÉ s 
DATA 1, —1, 3, —4, 1, 2, 0, 1, 2, 2, 1, 4, —2, 1, 0 : 
DATA EZ 1, 03, 1, 21, Et cí 5, ef 4,.—S, 
1, 1 : d 
IF Sz — 10 THEN RESTORE 510 : GOTO 560 ELSE RESTORE 
530 : GOTO 580 
A1—-0:FORI—1TOS : READ B1, C1, B2, C2 : NEXT I 
GOTO 600 
B1 — 0: A1—1 
FORI—1TOS-10 : READ C1, B2, C2 : NEXT I 
RETURN 
REM :k A FELADAT KIÍRÁSA -k 
PRINT CHR$(2); "DIFFERENCIÁLT FOGLAL — 
KOZTATÁS A NYITOTT MONDA 
TOK TÉMAKÖRÉBŐL" : PRINT : PRINT CHR$(1) 
PRINT "KÜLÖNBÖZŐ NEHÉZSÉGŰ NYITOTT MONDATOKAT 
KELL . GRAFIKUSAN MEGOLDANI." 
PRINT "A KEZDŐ NEHÉZSÉGI FOKOT MEGVÁLASZTHATOD." 
PRINT "HA NEM JÓL OLDOD MEG, ISMÉT UGYANOLYAN 
NE — HÉZSÉGŰ FELADATOT KAPSZ." 
PRINT "CSAK AKKOR KAPHATSZ NEHEZEBB FELADATOT, 
HA A KÖNNYEBBET JÓL OLDOTTAD MEG." 
RETURN 
REM :X: NEHÉZSÉGI FOK KIÍRÁSA xx 
PRINT "NEHÉZSÉGI FOK :" 
PRINT "1. ELSŐFOKÚ EGYENLETET KELL MEGOLDANI." 
PRINT "2. ELSŐFOKÚ EGYENLŐTLENSÉGET KELL MEGOL 
DA— NI." 
PRINT "3. MÁSODFOKÚ EGYENLETET KELL MEGOLDANI." 
PRINT "4. MÁSODFOKÚ EGYENLŐTLENSÉGET KELL MEGOL 
— DANI." 
INPUT "MILYEN NEHÉZSÉGI FOKKAL INDULSZ"; NF 
I  NFs—1 AND NF-—4 THEN 1390 


1380 PRINT "NEM JÓL VÁLASZOLTÁL! VÁLASZOLJ ÚJRA!" : GO 


TO 1360 


1390 RETURN 

1400 REM X A FELADAT KIJELÖLÉSE -k 

1410 ON NF GOTO 1420, 1430, 1440, 1450 

1420T—1: S — RND(10) : GOTO 1460 

1430 T — RND(2)-4-1 : S — RND(10) : GOTO 1460 

1444 T—-1: S — RND(10)3-10 : GOTO 1460 

1450 T — RND(2)--1 : S — RND(10)--10 

1401—1 

1470 IF S — VS(I) THEN 1410 

14801—1-41: IF Is —FS-1 THEN 1470 

1490 VS(FS)—S : IF TM 1 THEN J$ — " — "ELSE IF T— 2 THEN 
J$ — "-" ELSE J$ — "—" 3 

1500 RETURN 

2000 REM XX A FELADAT KIÍRÁSA KÉPERNYŐRE -k 

20101F §-10 THEN 2080 3 

2020 PRINT B1; "XX"; : IF Ci — 0 THEN PRINT " "; : GOTO 2040 

2030 PRINTUSING "3-3 34"; C1; 

2040 PRINT J$; .: IFB2— 1 THEN PRINT "? "; : . GOTO 2060 

20501IF B2——1 THEN PRINT "—"; : GOTO 2060. ELSE PRINT 
B2;" xx"; 

2060 PRINT "X"; USING "dr dk"; C2 

2070 GOTO 2120 

2080 PRINT "X"; CHR$(17); "2"; CHR$(16); : IF CI — 0 THEN 2100 

2090 PRINTUSING "- 34-34"; C1; 

2100 PRINT J$; : IF B2—-51 THEN PRINT " —"; 

2110 PRINT "X"; : IF C2—50 THEN PRINT USING " 4 3 34"? ; C2 ELSE 
PRINT 

2120 RETURN 

2300 REM XA FELADAT MEGOLDÁSA -k Tt 

2310 A — A1 : B — B1—B2 : C — C1-C2 : MX1, 1) — " " : M$(1, 2)— 

2320 IF A — 0 THEN 2400 

2330 D — SOR(BBXB—4XAXC) 

2340 X1 — (—B-3-D)/(2XA) : X2 — (—B—DJ)/(2XA) 
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2350 


2360 
2365 
2366 


2367 
2370 
2380 


2390 
2400 


2410 
2420 
2430 
2440 
2450 
2460 
2470 
2600 
2610 


2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2800 
2810 
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IF X1-X2 THEN M$(1, 1) — STR$(X1) : M$(1, 2) — STR$(X2) : 
GOTO 2365 


M$(1, 1) — STR$(X2) : M$(1, 2) — STR$(X1) 

FORI-1TO2 8 as 

IF ASC(M$(1, 1)) — 32 THEN M$(1, I) — RIGHT$(M$(T, 1), LEN 
(M$(1, 1)—1) 

NEXT I 

IF J$ —"—" THEN 2470 


IF J$ — "—" THEN K2$ — M$(1, 1) : N2$ — M$(1,2) : GOTO 
2470 
N2$ — M$(1, 1) : K28 — M$(1, 2) : GOTO 2470 
— —C/B : M$(1, 1) — STR$(X) : IF ASC(M$(1, 1)) — 32 THEN 
M$(1, 1) — RIGHT$(M$(1, 1), LEN M$(1, 1) —1) 
IF J$ — " — " THEN 2470 
IF BI-B2 THEN 2450 
IF J$ — "—? THEN K2$ — M3$(1, 1) : GOTO 2470 
N2$ — M$(1, 1) : GOTO 2470 


IF J$ — "-—" THEN N2$ — M$(1, 1) : GOTO 2470 

K2$ — M$(1, 1) 

RETURN 

REM x A VÁLASZ MEGADÁSÁNAK MÓDJA :k 

PRINT "ÍRD BE A MEGOLDÁST! AZ EGY 


ENLŐSÉGET PL. X — 2 ALAKBAN." 

PRINT "HA KÉT MEGOLDÁS VAN, VAGY A MEGOLDÁST" 
PRINT "TÖBB EGYENLŐTLENSÉGGEL TUDOD KIFEJEZNI," 
PRINT "A RETURN GOMBOT ÉRINTSD MEG KÖZÖTTÜK!" 
PRINT "HA MÁR NINCS TÖBB MEGOLDÁS, A GÉP KÉRDŐ-" 
PRINT "JELÉRE CSAK A RETURN-T ÉRINTSD MEG! A GÉP" 
PRINT "EBBŐL TUDJA, HOGY A VÁLASZADÁST BEFEJEZ-" 
PRINT "TED. HA A MEGOLDÁS PL. 2—-XÉS X—3, AKKOR" 
PRINT "EZT 2-X-3 ALAKBAN IS FELÍRHATOD." 

RETURN 

REM 3 A VÁLASZ LEKÉRDEZÉSE x 

E1$ — " " : E2$— ? " : NI$-"" : KI$— 7?" :J1—0 : J1$ — 
"5. J2$—-"":S§550-0:S2—0:J5—0 


2820 V$ — " " : INPUT V$ 

2830 IFV$ — " " THEN 3040 

2840 H — LEN(V$) : J5 — 1 

2850 GOSUB 3110 : REM kk SZÓKÖZÖK ELHAGYÁSA xx 

28601— 1 

2870 IF MID$(V$, I, 1) — " — " THEN 50 — I : GOTO 3000 

2880. I — 1--1 : IFI — H THEN 2870 . 

2890 REM xEGYENLŐTLENSÉG-k 

2900]J1—0: JI$—?": J2—"": S()—O0O: S2)—0 

2910 FOR 1—1 TOH 

2920 VW$ — MID$(V$, I, 1) 

2930 IF W$—"—" OR W$—-"-" THEN J1—J1-£1 : S(/1)— I: 
J$(J1) — V$ 

2940 NEXT I! 

2950 IF JI — 1 THEN H1 — H: W$— V$: S1 — S(1): GOSUB 3200: 
GOTO 2820 

2960 IF JI52 OR J$(1—51$(2) THEN PRINT "ILYEN FORMÁBAN 
NEM ADHATOD MEG AZ EREDMÉNYT! ADD MEG ÚJRA!" : 
GOTO 2810 

2970 V1$ — LEFT$(V$, S(2)—1) : V2$ — RIGHT$(V$, H—S(1)) 

2980 H1 — S(2)—1: W$ 6 V1I$: S1 — S(1): GOSUB 3200 

2990 H1 — H—S(1)::  W$— V2$: S1 S(2)—S(1): GOSUB 3200: 
GOTO 2820 1 s j : 

3000 REM kk EGYENLŐSÉG x 

3010 IF ASC(MID$(V$, S0-- 1, 1) ——58 THEN W$ — RIGHT$(V$, H — 50) 
ELSE W$ — LEFT$(V$, 50—1) 

3020 IF E1$.— "" THEN E1$ — W$ ELSE E2$ — W$ 

3030 GOTO 2820 

3040 RETURN 

3100 REM Xx SZÓKÖZ ELHAGYÁS xx 

31101—0: VI$—"" 

3120 FOR 1—M1 TOH 

3130 W$ — MID$(V$, I, 1) 

3140 IF ASC(VV$) — 32 THEN 3160 

3150 J — J-4-1 : V1$ — V1$--VV$ 


105 


3160 NEXTI 

3170 H-J] : V$ — V1$ 

3180 RETURN 

3200 REM kk LEVÁLASZTÁS -k 

3210 IF ASC(MID$(VV$, S1—1, 1) 564 THEN 3240 

3220 W1$ — LEFT$(VS$, 51—1) 

3230 IF J$(1) — "—" THEN K1$ — W1$ ELSE N1$ — VV1$ 
3260 

3240 W1$ — RIGHT$(VV$, H1— 51) 

3250 IF J$(1) — "—" THEN N1$ — W1$ ELSE K1$ — VV1$ 

3260 RETURN . 

3300 REM XÉRTÉKELÉS xx 

3310 IF T——1 THEN 3360 

3320 REM XEGYENLŐSÉG-k 


: GOTO 


3330 IF E1$ — M$(1, 1) THEN IF E2$ — M$(1, 2) THEN JO — 2 : GOTO 


3450 ELSE JO — 1 : GOTO 3450 


3340 IF E2$ — M$(1, 1) THEN IF E1$ — M$(1, 2) THEN JO — 2 : GOTO 


3450 ELSE JO — 1 : GOTO 3450 


3350 IF M$(1, 2) — E1$ OR M$(1, 2) — E2$ THEN JO — 1 : GOTO 3450 : 


ELSOJO — 0 : GOTO 3450 
3360 REM XxEGYENLŐTLENSÉG :k 
3370 Jo — 0 
3380 IF K1$ — K2$ THEN JO — JO-- 1 
3390 IF N1$ — N2$ THEN JO — JO1-1 
3400 RETURN 
5000 REM XSZÜNET XX 
5010FORK-1TOZ : NEXTK 
5020 RETURN 
5200 REM XTÖRLÉS kk 
5210 PRINT$O1, 0, ; 
5220 FORK—1TO 02 
5230 PRINT CHR$(6); " " ; 
5240 NEXT K 
5250 RETURN 
6000 REM :k KOORD, RNDSZ. RAJZA -k 
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6010 U — 123: V. — 113 
6020Y—-V 

6030 FOR X — 22 TO 226 : SET(X, Y) : NEXT X 

6040 SET (225, V—1) : SET(225, V-£1) : SET(224, V—2) : SET(224, V--2) 
6050 X-U 

6060 FOR Y — 35 TO 191 : SET(X, Y) : NEXTY 

6070 SET(U—1, 190) : SET(U —2, 189) : SET(U-t-2, 189) : SET(U-£- 1, 190) 
6080 FORI— —8TO8 

6090 X — 1233-1x.12 

6100 FOR Y — 111 TO 115 : SET(X, Y) : NEXT Y 

6110 NEXT I 

6120 FORI— —6TO6 

6130 Y — 113--1:k12 

6140 FOR X — 121 TO 125 : SET(X, Y) : NEXT X 


6150 NEXT I 
6160 PRINTS$Z, 3, "—8—7—6—5—4—3—2—1 1234567 8";: 
PRINT$ 7,20, 70" ; 


6170 FOR 1—0 TOS5 
6180 PRINTSI, 17, 6—I; 


6190 NEXT ! 

6200 FOR 1—m1 TO6 
6210 SS — 77-I 

6220 PRINT$SS-1, 17, —I; 
6230 NEXT I! 


6240 FOR Y— 41 TO 185 STEP 12 
6250 FOR X-—27 TO 222 STEP 6: SET(X, Y): NEXT X 
6260 NEXT Y 

6270 FOR X—27 TO 222 STEP 12 

6280 FOR Y— 185 TO 41 STEP —6: SET(X, Y): NEXTY 
6290 NEXT X 

6300 RETURN 

6500 REM 3 EGYENES RAJZA Y — M9xX3-B9 

6505 L9 — 1/12 

6510 IF  ABS(M9)—1 THEN 6570 

6520 FOR P— —8 TO 8STEPL9 
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6530 O — M9XxP3-B9 : X — Px1273-123: Y — O:k12--113 
6540 IF Y- —41 AND Y— — 185 THEN SET(X, Y) 
6550 NEXT P 
6560 GOTO 6610 

6570 FOR 9—-—6 TO 6 STEP L9 

6580 P — (2—B9)/M9: X P:x12--123: Y— Ox12--113 
6590 IF X5 —27 AND X-—222 THEN SET(X, Y) 

. 6600 NEXT O 

6610 RETURN 

7000 REM :£ PARABOLA RAJZA Y — A9XxX12-I-C9 x 
7010 FOR P1 — —8 TO 8 STEP 1/12 

7020 01 — A9xP1:XP1--C9 : IF 91— — 6 THEN 7040 
7030 NEXT P1 

7040 FOR P— P1 TO 8 STEP 0. 01 

7050 0 — A9XPXP-4-C9 : IF 056 THEN 7080 

7060 X — PX12-4-123 : Y— O0x12-4-113 : SET(X, Y) 
7070 NEXT P 

7080 RETURN 

7240 REM :k ÁBRÁZOLÁS -x 

7250 GOSUB 6000 : REM KOORD. RNDSZ. RAJZ: 
7260 PRINT$14,0,; : .GOSUB 2000 

7270 PRINT$15, 0, "A BAL OLDALON LEVŐ FÜGGVÉNY RAJZA." ; 
7280 IF S-10 THEN 7300 ELS 
7290 M9—B1: B9—C1: GOSUB 6500: GOTO 7310 
7300 A9—A1: C9— CI : GOSUB 7000 

7310 01— 15: O2— 40: GOSUB 5200 ; 
7320 PRINT$15, 0, "A JOBB OLDALON LEVŐ FÜGGVÉNY RAJZA." ; 
7330 M9—B2 : B9— C2 : GOSUB 6500 

7340 01— 15 : O2— 40: GOSUB 5200 

7350 PRINT$15, 0, "A MEGOLDÁS : "; 

7360 ON NF GOTO 7370, 7380, 7400, 7410 


7370 PRINT "X—" ; M$(1, 1); : GOTO 7430 
7380 IF K2$ — " " THEN PRINT ."X-"; N2$; ELSE PRINT "Xz"; 
K2$; 


7390 GOTO 7430 
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7400 PRINT "X.—- "; M$(1, 1)" "; "X — "; M$(1, 2); : GOTO 7430 

7410 IF T — 2 THEN PRINT M$(1, 1); "—X—"; M$(1, 2); : GOTO 7430 

7420 PRINT "X—"; M$(1, 1" X5"; MXI1, 2); 

7430 Z — 5000 : GOSUB 5000 

7440 RETURN 

7800 REM xx AZ ÉRTÉKELÉS EREDMÉNYÉNEK KIÍRÁSA 3k 

7805 IF J5 — 0 THEN PRINT "NEM ADTÁL VÁLASZT!": GOTO 7830 

7815 ON JO--1 GOTO 7820, 7890, 7900 

7825 PRINT "A MEGOLDÁS NEM JÓ!" 

7835 PRINT "NÉZD MEG AZ ÁBRÁZOLÁS MENETÉT ÉS AZ ERED 

MÉNYT!" j 

7840 Z — 2000 : GOSUB 5000 

7850 CLS : GOSUB 7240 : Z — 4000 : GOSUB 5000 I 

7860 FS — FS--1: IF FSz10 THEN FOR1—1 TO 10: VS(I)— 0: 
NEXTI 

7870 CLS : PRINT "ISMÉT HASONLÓ NEHÉZSÉGŰ FELADATOT 
KAPSZ." 

7880 Z — 3000: GOSUB 5000: GOTO 7930 

7890IF T-—1 THEN 7820 ELSE PRINT "MEGOLDÁSOD CSAK 
RÉSZBEN JÓ!" : GOTO 7830 

7900 PRINT "JÓ A MEGOLDÁSOD!" 

7910 PRINT "FELRAJZOLJA-E A GÉP A MEGOLDÁST (I/N)" ; 

7920 INPUT Z$: IF Z$ — "I" OR Z$—"(i)" THEN CLS: GOSUB 7240 

7930 RETURN 


4.9. Függvény transzformáció bemutatása 


A program két fő logikai részből áll: 
1. Megismertet az elemi transzformációkkal. 
2. Az XOC(X-FAJ-B, illetve az X-C]X--A[-4-B 
(A, B, C paraméter) függvényeket ábrázoltathatjuk elemi transzfor- 
mációk segítségével. 
Az 1. részt, a függvény transzformációnak, mint új anyagnak a ta- 
nításánál tudjuk jól felhasználni. Két függvény, az X—-X? és az XoXI 
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függvények transzformációit követhetjük végig. (A kettő közül választani 
lehet.) Mindkét tengely irányában az eltolást, a zsugorítást, illetve a nyúj- 
tást, valamint a tükrözést követhetjük nyomon. Ezen elemi transzformá- 
ciós lépések rögzített A, B, C értékekkel, de mindegyik több példán ke- 
resztül kerülnek bemutatásra. Ezek megtekintését akárhányszor megis- 
mételhetjük. 

A 2. részben általunk megadott A, B, C értékek (]JAlzS6, IBI£E 
S6, 1/6EICI£E6 illetve C—O lehet!) esetén ábrázolja a gép a függvényt, 
úgy, hogy az ábrázolást lebontja elemi transzformációs lépésekre, s 
azok bemutatásán keresztül jutunk végül a kívánt függvény ábrázolá- 
sához. (Az adatok megadásának módja és a paraméterekre vonatkozó 
korlátozás megjelenik a képernyőn.) Pl. Ábrázoltatni akarjuk az 
X-.3(X—2)?--4 függvényt. Az ábrázolás menete a következő: 


1/X-XÉ 
2. X-(X—2)? 
3. XA3(X—2)y? 


4. X-3(X—2)?-- 4 

A gép felrajzolja az 1. függvényt, azután a 2-at, s letörli a képernyőről az 
elsőt. Ezután váltakozva megvillantja az elsőt, (ekkor a második nem 
látszik) majd a másodikat, (ekkor az első nincs a képernyőn), s ezt há- 
romszor megismétli. Ez a mozgás, villogás a tekintett transzformációs 
lépés lényegét emeli ki. A képernyőn ezután csak a 2. függvény marad. 
Ezután a 3. függvényt a 2-ból ugyanolyan módon kapjuk, mint a 1-ből a 
2-at. A transzformációs lépésekhez tartozó képleteket a gép akkor írja 
ki, amikor a tekintett függvényt elkezdi rajzolni, de ez nem is törlődik a 
képernyőről. 

Ez a második rész különösen a függvény transzformáció elmélyí- 
tésénél, begyakorlásánál lehet hasznos. Egyéni tanulás, korrepetálás al- 
kalmával a gyerek annyiszor nézi végig, ahányszor csak szükségesnek 
tartja. 

A villogás (2900-as szubrutin), illetve az 1. részben a koordináta- 
rendszer és a kiindulási függvény (X--X? ill. Xo-IXI) gyors kirajzolása 
megvalósításának  részletezésére itt nem térünk ki. Megjegyezzük, 
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hogy ez egy rövid gépi kódú program segítségével, (30, 40. sorban az 
adatok) ennek kihívásával (CALL) valósítható meg, illetve azt használ- 


szer 


gos képernyő terület. 

A koordinátarendszer rajzolását, a függvények ábrázolását, a kép- 
letek kiírását, a transzformációs lépések meghatározását mind külön 
szubrutinok valósítják meg. 


10 
12 


20 
30 
40 
50 
60 
100 


110 
120 
130 
135 
140 
150 
160 
490 
492 
493 


494 
495 
496 
497 
498 


P$ — "X"-3-CHR$(132)--" C:3X(XI-A)"?--CHR$(17)-- "2" -k 
CHR$(16)--"--B" 

A$ — "X"3CHR$(132)--" C:3$"-4CHR$(138)4-"X1-A"? 3 CHRS 
(138)--"?--B" 

DEFINT G, H : DIM G(6), H(6) 

DATA 33, 4584, —14 336, 1, —4840, —13 904 

DATA 33, 4552, —6144, 1, —4840, —13 904 

FOR 1-1 TO6: READ G(I) : NEXTI 

FOR 1-1 TO6: READ H(D) : NEXTI 

CLS : PRINT "A GÉP FÜGGVÉNY TRANSZFORMÁCIÓT MUTAT 
BE." 

PRINT "1. MEGISMERTET AZ ELEMI TRANSZFORMÁCIÓKKAL? ; 
PRINT "2. ";P$;" ILLETVE "; A$ 

PRINT "FÜGGVÉNYEKET ÁBRÁZOLJA ELEMI TRANSZFORMÁ-" 
PRINT "CIÓK SEGÍTSÉGÉVEL." 

PRINT "MIT AKAR EZEK KÖZÜL? 1 VAGY 2" 

INPUT V9 

ON V9 GOTO 490, 600 

REM 336 ELEMI TRANSZFORM. BEMUTATÁSA 3 -X 

CLS 

PRINT$1, 0, "X"; CHR$(132); " X"; CHR$(17); "2"; CHR$(16);" 
VAGY ";" X"; CHRS$(132);" ";:CHR$(138); "X"; CHR$(138) 
PRINT "FÜGGVÉNY TRASZFORMÁCIÓJÁT AKARJA"? 

PRINT "MEGNÉZNI?" 

INPUT "1 VAGY 2"; W : CLS : GOSUB 2500 

FOR 1—1 TO2000: NEXTI 

GOTO 550 


111 


550 


552 
560 
570 
580 


582 
583 
590 
595 
596 
600 
605 


606 
607 


610 
615 
620 
630 


640 
650 
660 
670 
680 
690 
700 
702 
703 
704 
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CLS: PRINT "AKARJA-E VALAMELYIK FÜGGVÉNY TRANSZ 
FOR-" 

PRINT "MÁCIÓJÁT MEGNÉZNI?" 

INPUT "IGEN (I), NEM (N)"; V$ 


IF V$—"N" THEN 600 
PRINT "X"; CHR$(132); " X"; CHR$(17); "2"; CHR$(I6);" 

VAGY ";" X"; CHRS$(132);" ":CHR$(138); "X"; CHR 
$(138) 


PRINT "FÜGGVÉNY TRANSZFORMÁCIÓJÁT AKARJA" 


PRINT "MEGNÉZNI?" 

INPUT "1 VAGY 2"; W: CLS: GOSUB 2500 
FOR 1-1 TO 2000: NEXTI 

GOTO 550 

CLS 


PRINT$0, 0, "TEKINTSÜK AZ ";A$;"? ILLETVE ";P$"; FÜGGVÉ- 
NYEKET!" , 

PRINT "A  C, A, B ÉRTÉKEKET VÁLTOZTATNI LEHET." 
PRINT CHR$(138); "A" ; CHR$(138); "— — 6,"; CHRS$(138); 
"B"; CHR$(138);"— — 6, 1/6— — "; CHR$(138); "C"; CHR$ 
(138); " — — 6 ILL. C — 0 LEHET." ; Í 

PRINT "A C, A, B ÉRTÉKEKET VALÓDI TÖRT ALAKBAN" 
PRINT "KELL MEGADNI, HA VALAMELYIK EGÉSZ SZÁM," 
PRINT "(MÉG HA 0 IS), 1 NEVEZŐT ÍRJUNK!" 

PRINT "NEGATÍV SZÁMNÁL A SZÁMLÁLÓ LEGYEN NEGA 
TÍV" 

PRINT "ÉS A NEVEZŐ POZITÍV!" 

PRINT. "A SZÁMLÁLÓT ÉS A NEVEZŐT VESSZŐVEL ELVÁ-" 
PRINT "LASZTVA KELL MEGADNI!" 

PRINT "MIT SZERETNE?" 

PRINT "1. A ";P$;" FÜGGVÉNYT ÁBRÁZOLTATNI?" 

PRINT "2. A ";A$"; FÜGGVÉNYT ÁBRÁZOLTATNI?" 

PRINT "3. BEFEJEZNI?" 

INPUT V9 : CLS 

ON V9 GOTO 704, 705, 706 

V.:1: GOTO 710 


705 
706 
710 
720 
730 
740 
750 
760 
770 
900 
910 
920 
925 
930 
940 
950 
955 
960 
1000 
1010 
1020 
1030 
1040 
1050 
1051 
1060 
1070 
1080 
1090 
1091 


1100 
1110 
1120 
1125 


W5:2: GOTO 710 

END 

INPUT "C — P/O"; C1, C2 

INPUT "A — P/O"; A1, A2 

INPUT "B — P/C"; B1, B2 

CLS : GOSUB 2700 : 
PRINT$14, 0, "A MEGADOTT"; PRINT$15, 0, "FÜGGVÉNY"; 
FOR 1-1 TO3000: NEXTI ji 
CLS: GOTO 670 

REM xx AZ ÁBRÁZOLÁS MENETE -Xx 


C — Pt/O1: A — P2/O02 : B — P3/03 

IF T — 0 THEN 940 

PRINTSL, O,; 

GOSUB 2100 : REM :Xk FÜGGVÉNY KIÍRÁSA :k 


GOSUB 2000 : REM FÜGGVÉNY RAJZA 

IF B89—1 THEN NM — 2500 ELSE I! — 500 

FOR 1—1 TOII: NEXTI 

RETURN i 

REM 3:k KOORDINÁTARENDSZER RAJZA X3k 
U — 147: V. — 89 

YeV 

FOR X—49 TO255 STEP2 

SET (X, Y) 

NEXT X 

SET (254, V—1): SET (254, V3-1): SET(253, V— -24: SET(253, Va) 
XEU 

FORY—0TO 191 STEP 2 

SET (X, Y) 

NEXT Y 

SET(U—1, 190):  SET(U--1, 190): SET(U—2, 189): SET(U-k2, 
189): SET (U, 191) 3 

FOR I5—8 TO8 

X — 147-4IX12 7 

FOR Y—87 TO91 

SET(X, Y) 
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1130 
1140 
1150 
1160 
1170 
1180 
:1190 
1200 
1210 
1220 


1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
2000 
2001 
2002 
2003. 
2004 
2005 


2006 


2007. 


2008 
2010 
2011 
2012 
2013 
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NEXTY 
NEXT ! 

FOR 1— —7 TO7 

Y — 89-7-13k12 

FOR X 2 145 TO 149 

SET(X, Y) 

NEXT X 

NEXTI 

PRINTS$9, 7, ; 5. ke göva 
PRINT" —8, —7, —6, —5, —4—3, —2,—í"". 123456 
78" 3 I 3 
FORI—-O0TO6 

PRINTS$I-- 1, 21; 

PRINT 7—1: 7 

NEXTI  : 

FOR1-1TO7 

S — 8-1 

PRINTSS,21,; 

PRINT —l; 

NEXT I 

RETURN 

REM A Csx(X--1)12--B PARABOLA RAJZA : 

ON SGN(C)-3-2 GOTO 2010, 2002, 2020 

Y2 — B:X124-89 : YI — Y2 

FOR X.— —8 TOSBSTEPO.05 7 7 

X2 — X.:k12--147 

IF T— 1 THEN SET(X2, Y2) ELSE IF. INT(X) — 147 OR INT(Y2) 
— 89 THEN 2006 ELSE RESET (X2, Y2) 

XI — X2 

NEXT X 

GOTO 2054 : 

D1 — (—7—B)/C : IF W — 1 THEN D1 — SOR(D1) 

IF —D1—A——8 THEN X3 — —8 ELSE X3 — —D1—A 

IF DI—A-8 THEN X4— 8 ELSE X4 — D1—A I 
GOTO 2025 


2020 
2021 
2022 
2025 
2026 
2030 


2040 
2041 


2045 
2050 
2054 
2055 
2056 
2060 
2100 
2110 
2120 
2130 
2140 
2145 
2150 
2155 
2160 
2170 
2180 
2190 


2200 


2210 
2220 


2230 


D2 — (7—B)/C : IF W — 1 THEN D2 — SOR(D2) 

IF —D2—A--—8 THEN X3— —8 ELSE X3 — —D2— A . 

IF D2—A-8 THEN X4 — 8 ELSE X4 — D2—A - 

IF ABS(C)--1 THEN LE — ABS(C) ELSE LE — 1 

FOR X — X3 TO X4 STEP. 0. 05/LE.. si j 

IF W-1 THEN Y — zákáküaőt ELSE Y —  GYKABSOK4- 

A)--B 5 i 

X2 — X3k12-4-147 : Y2 5 Y:x12--89 ; SET 

IF T— 1 THEN SET(X2, Y2) ELSE IF INT(X2) — 147 OR RINT(Y2) 

— 89 beg 2045 ELSE RESET (X2, a j 

X1 — Y1— Y2 

NEXT ra 

IF B9—0 THEN 2060 

X1 — INT(X1/6)9—1 : Y1 — 15-INTOY1/12) 

PRINT$Y1, X1,; L; 

RETURN 

REM A FÜGGVÉNY KIÍRÁSA 

REM :X PARAMÉTEREK - 

REM kk C — PT/O1 XX 

REM x:k. A — P2/O2 xx 

REM Xx:k B — P3/03 kk 

PRINT "X"; CHR$(132)" "; 

IF C—1 THEN 2200 . 

IF C€-—0 .THEN PRINT. "—" ; 3 né 

IF 91— 1 THEN 2190 Ms áz HAá 

F$ — "ap/de? : PRINTUSING Fő; ABS(PI); 91 s éa 

GOTO 2200 ; a ezt 4 A 

IF ABS(P1) — 1 THEN 12200 ELSE. F$ —.93p2 : PRINTUSING FS; 

ABS(P1); 

IF A — 0 THEN IF W — 1 THEN PRINT. "X"; : GOTO- 2270 ELSE 

PRINT CHR$(138); "X"; GHIRSÍSBK : GOTO 2270 : § 

IF 92 — 1 THEN 2250 : t 

IF Wo 1..THEN: F$ — "(X-44/d)" -ELSE pg és CHRS(I38) 
4"X- 4 /34"-HCHR$(138) — ; 

PRINTUSING F$; P2; O2.- 
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2240 
2250 


2260 
2270 


. 2280 


2290 
2300 
2310 
2320 
2330 
2340 
2500 
2510 
2520 
2530 
2540 
2541 
2550 
2551 
2560 
2561 
2570 
2571 
2580 
2581 
2590 
2591 


2592 
2593 
2600 
2601 
2602 
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GOTO 2270 

IF W51 THEN F$ — (XD£.3)" "ELSE F$ — CHRS(I38)--"x-: 
-H 34" -FCHRS$(138) 

PRINTUSING F$; P2; 

IF W — 1 THEN PRINT CHR$(17); "2"; CHR$(16); 

IF B— 0 THEN 2340 

IF 03 sz 1 THEN 2330 

F$ — "4 3p/dp? 

PRINTUSING F$; P3; 03; 

GOTO 2340 

F$ — "33" : PRINTUSING F$, P3; 

RETURN 

REM XA TRANSZFORM. BEMUTATÁSA xx 
L—1:T051:B9—1 

GOSUB 1000: REM kk KOORD. RNDSZ. RAJZA 3 
PIf—1:01—1:P2—0O:02—1:P3—0O:03—1 

GOSUB 900 

Z — CALL (VARPTR(G(1))) 

P3 — 3 : L— L--1 : GOSUB 900. . $ 

PRINT$14, 0, "2. TENGELY IRÁNYÚ"; : PRINT$15, 0, "ELTOLÁS? ; 
P3 — —5 : L— L--1 : GOSUB 900 

CLS : L— 1 : Z — CALL(VARPTR(H(1))) 

P2—3: P3—-O:L—EL41 : GOSUB 900 

PRINT$14, 0, "1. TENGELY IRÁNYÚ" ; : PRINT$15, 0, "ELTOLÁS" ; 
P2 — —5 : L— L3-1 : GOSUB 900 

CLS : L—1 : Z — CALL(VARPTR(H(1))) 

Pi — 2: P2—-0:L b L-4-1 : GOSUB 900 

PRINT$14,0, "2. TENGELY IRÁNYÚ"; : PRINT$15, 0, "NYÚJ- 
TÁS"; 

P1 —3:L — L73-1 : GOSUB 900 

CLS : L — 1. : Z — CALL(VARPTR(H(1))) 

PI —-—1:01—52:L — L3-1 : GOSUB 900 

PRINT$14, 0, "2. TENGELY IRÁNYÚ"; : PRINT$15, 0, "ZSUGO- 
RÍTÁS"; 

01 — 3 : L— L--1 : GOSUB 900 


2603 CLS: L— 1: Z — CALL (VARPTR(H(1))) 

2610 P1——1: 01—1: LE L-1: GOSÚB 900 

2611 PRINT$14, 0, "1. TENGELYRE"; : PRINT$15, 0, "VONATKOZÓ 
TÜKRÖZÉS"; b 

2612 FOR 1—1 TO3000: NEXTI 

2620 RETURN 

2700 REM x TETSZ. FGY. LÉPÉSENKÉNTI ÁBR. :k 

2705 89—0 

2710 GOSUB 1000 

2720Pf—1: 91—1: P2—MO0O: 92—1: P3—0: 03 
T—1 

2730 1—1: GOSUB 900 

2731 Z — CALL(VARPTR(G(1)) 

2740 IF A1—0 THEN 2760 

2750 P2—-A1: 92—-A2: L—L-11: GOSUB 900 

2755 T—0O: P2—O0O: GOSUB900: P2—A1: T— 1 

2756 GOSUB 2900 

2760 IF C1/C2 — 1 THEN 2800 

2765 IF C1/C2 — —1 THEN 2790 

2770 IF ABS(C1/C2) — C1/C2 THEN 2790 

2780 Pi — ABS(C1) : 01 C2: L—L--H1: GOSUB 900 

27855 T—O : PI—1 : 01— 1 : GOSUB 900 : T— 1 : PI — ABS 
(C1) : 91 — C2 : GOSUB 2900 

2799 PI C1: O1—C2: L—L--1: GOSUB 900 

2791 IF ABS(C1/C2) — C1/C2 THEN 2795 

2792 Pi — ABS(C1) : T— 0 : GOSUB 900 

2793 T—1: PI — C1: GOSUB 2900: GOTO 2800 

27955: T—-O0O: Pls 1: 91—1: GOSUB 900 

2796T—1: PI — CI: O15— C2 :: GOSUB 2900 

2800 IF BI— 0 THEN 2820 

2810 P3— B1.:: 93—B2: L— L-4-1: GOSUB 900 

2811 P3—0 : T— 0 : GOSUB 900 : T — 1 : P3 — B1 : GOSUB 2900 

2820 RETURN I ; 

2900 REM XX VILLOGÁS :k 


I 
— 
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2910 FOR]J— 1 TO 3: OUT 6, 240: FOR1— 1 TO 500: . NEXT I : 
OUT 6, 248: FORI—-1TO500: NEXTI: NEXTJ 

2920 Z — CALL(VARPTR(G(1))) - 

2930 RFTURN 


4.10. Galton deszka szimulációja 


Végül bemutatunk egy programot, amely számítógépes szimulációt 
valósít meg. A gép a Galton deszkát szimulálja. A szintek száma és a 
golyók száma paraméter. (A szintek száma max. 14 lehet.) Ezen értékek 
megadása után a képernyőn megjelenik a Galton deszka rajza. (20. ábra) 

A golyók fentről indulva, az ékekbe ütközve véletlenszerűen tér- 
nek el jobbra vagy balra. A golyók útját végigkövethetjük, a tartályba 
pottyanva, egy-egy vízszintes vonal reprezentálja azokat. Így szemünk 


20. ábra 


118 


láttára alakul a hisztogram. (Az egyes tartályokba milyen gyakorisá- 
gokkal jutnak a golyók.) A képernyő jobb felső sarkában a mozgásban 
levő golyó sorszáma látható. 

. Rámutathatunk ezen példa kapcsán a valószínűségszámítás, a ma- 
tematikai statisztika egy alapvető kérdésére, a kísérletek számának 
(golyók számának) a jelentőségére. Kapcsolatot teremthetünk a már be- 
mutatott 4.6. feladattal. (Általánosíthatunk — Pascal háromszög.) 

Ezután a gép kiírja a képernyőre a , menűt", amiből választhatunk, 
mit akarunk látni. 


1. A relatív gyakoriságok számértékét 
2. Az eloszlás rajzát 

3. Az eloszlásfüggvény rajzát 

4. Újra akarjuk indítani a szimulációt 
5. Be akarjuk fejezni 


(Természetesen a kísérlet alapján kapott tapasztalati eloszlásról és 
eloszlásfüggvényről van szó.) Bármelyik megtekintése után újra választ- 
hatunk a fenti lehetőségek közül. Egy-egy ábra addig látható, amíg egy 
billentyűt meg nem érintünk. 

Az ékek és golyók rajzolását, valamint a golyók régi helyzetének 
törlését szubrutin végzi a kezdő koordináták megadása után. A tartályok, 
a koordinátarendszer és az eloszlás, valamint az eloszlás függvény raj- 
zolását is szubrutinnal oldottuk meg. 

Egy kísérlet számítógéppel való megvalósításának több előnyét 
figyelhetjük meg ennél a példánál is. Nem kell bonyolult eszközöket 
használni, akárhányszor megismételhetjük, és jól megfigyelhetjük a jelen- 
séget. A kísérlet mindannyiszor jól látható formában jelénik meg, mely 
azonnal számokká, grafikonokká változtatható. i 

Hasonlóan készíthetünk programokat az egyszerű pénz- vagy koc- 
kadobás modellezésére, vagy az egyenesen, illetve a síkon való bolyongás 
problémájára. fú 


5 CLS 
10 PRINT "A GÉP A GALTON DESZKÁT SZIMULÁLJA." 
20 PRINT "A SZINTEK SZÁMA ÉS A GOLYÓK SZÁMA PARAMÉ-" 
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30 
40 
45 


46 
47 
50 
55 
56 
60 
65 
70 
80 
90 
91 
100 
105 
110 
120 N 
130 
210 
220 
225 
230 
240 
250 
260 
270 
280 
290 
291 
292 
293 
294 
300 
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PRINT "TER. A SZINTEK SZÁMA MAX. 14 LEHET." 
PRINT "A GÉP EZEN KÍVÜL MEGHATÁROZZA, HOGY AZ" 
PRINT "EGYES DOBOZOKBA MILYEN RELATÍV GYAKORI 
SÁG-?; 
PRINT "GAL ESNEK A GOLYÓK, FELRAJZOLJA A GOLYÓK" 
PRINT "TAPASZTALATI ELOSZLÁSÁT ÉS ELOSZLÁSFGV — ÉT." ; 
PRINT "AZ EGYES ÁBRÁK FELRAJZOLÁSA UTÁN A GÉP" 
PRINT "MEGÁLL ÉS TETSZŐLEGES BETŰ MEGÉRINTÉSÉ— 
PRINT "VEL TOVÁBBINDÍTHATÓ." 
PRINT "A PROGRAM IS EGY BETŰ MEGÉRINTÉSÉVEL . IN-" 
PRINT "DÍTHATÓ". 
IF INKEY$ — " " THEN 70 
CLS 
INPUT "SZINTEK SZÁMA"; M 
DIM D(M--1), P(M--1) 
INPUT " GOLYÓK SZÁMA"; C 
CLS:W5 0 
FORY-1TOM 
— ] : GOSUB 1900 
NEXT J 
FORI—-1TO 10-4(N—1)x8 4 
SET (119—I, 189—1) : SET (132--I, (189—1) 
SET(120—I, 189—1) : SET(131--I, 189—1) 
NEXT I! 
REM TARTÁLYOK RAJZA 
FOR X — 125—(N—1)x8—16 TO 1254-(N—1) 38-16 STEP 16 
FOR Y — 176—(N—1)x8 TO 108—(N—1):k8 STEP —1 
SET(X, Y) : SET(X--1, Y) 
NEXT.Y 
NEXT X 
Y — 107—(N—1)x8 
FOR X — 125—(N—1):x8—16 TO 125-4(N—1) 48-16 STEP 2 
SET(X, Y) 
NEXT X 
REM GOLYÓ INDUL 


310 FORJM 1TOG 

315 PRINT CHR$(6); 

316 PRINTS$1, 35, J; 

317 PRINT CHR$(32) 

320 A — 125 : B — 186 : A1 — 125: B1 — 186 : DJ — 0 
330 GOSUB 2000 : FOR K — 1 TO 100 : NEXT K 
340 FORI-1TON 

350 V — RND(2)— 1 : DJ — DJ4-V 

360 A — A1 : B — B1 : W — 1 : GOSUB 2000 
370 A — A1—8: A — A116XV : B — B1—8 

380 W — 0: GOSUB 2000 : FOR K — 1 TO 100 : NEXTK 
390 1—-hA:BI—B 

400 NEXT I 

410 D(DJ--1) — D(DJ--1)--1 

420 W — 1 : GOSUB 2000 : W — 0 

430 Y — 107—(N—1)x8--D(DJ--1) 

431 X1 — 127—(N—1)k8--(DJ— 1) 16 

432 FOR X — X1 TO X1--13 

433 SET(X, Y) 

434 NEXT X 

450 NEXTJ 

500 REM RELATÍV GYAK. SZÁMÍTÁS 

510 FORI — 1 TO M--1 

520 P(I) — D(I)/G 

530 NEXTI 

540 IF INKEY$ — " " THEN 540 

550 CLS 

560 PRINT "MIT AKAR LÁTNI?" 

570 PRINT "1. A RELATÍV GYÁKÖÉSÉGOK SZÁMÉRTÉKÉT?" 
580 PRINT "2. AZ ELOSZLÁS RAJZÁT?" 

590 PRINT "3. AZ ELOSZLÁSFGY. RAJZÁT?" 
600 PRINT "4. ÚJRA AKARJA INDÍTANI?" 
610 PRINT "5. BE AKARJA FEJEZNI?" 

620 PRINT "ÍRJA BE A MEGFELELŐ SZÁMOT!" 
630 INPUT K 
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640 ON K GOTO 650, 710, 750, 800, 820 

650 REM REL. GYAK. KIÍRÁSA 

660 CLS : PRINT "DOBOZOK SORSZÁMA?;? "REL. GYAK." 

670 FOR 1—M1TO M--1 

680 PRINT I; TAB(20); P(I) 

690 NEXT I 

700 IF INKEY$ — "" THEN 700 ELSE 550 

710 REM ELOSZLÁS RAJZA 

720 CLS : PRINT "AZ ELOSZLÁS? : . GOSUB 2200 

730 GOSUB 2500 

740 IF INKEY$ —""? THEN 740 ELSE 550 

750 REM ELOSZLÁSFGY. RAJZA 

760 CLS : PRINT "AZ ELOSZLÁSFÜGGVÉNY" 

770 GOSUB 2200 

780 GOSUB 2600 

790 IF INKEY$ — "" THEN 790 ELSE 550 

800 REM ÚJRAINDÍTÁS 

810 CLEAR : GOTO 90 

820 END 

1900 REM N-EDIK SZINT RAJZA 

1910 B — 178-(N—1):k8 

1920 FOR A — 125—(N—1):k8 TO 1253-(N—1):kx8 STEP 16 

1930 GOSUB 2100 

1940 NEXT A 

1950 RETURN $ 

2000 REM A, B KOORDINÁTÁVAL . INDUL 

2010 IF W — 0 THEN SET(A, B) : SET(A--1, B) ELSE RESET(A, B) : 
RESET(A1-1,B) 

2020 FOR Y—B-3-1 TO B-2 

2030 FOR X—-A—1 TO A71-2 

2040 IF W—0 THEN SET(X, Y) ELSE RESET(X, Y) 

2050 NEXT X 

2060 NEXT Y 

2070 IF W —0 THEN SET(A, B-H3): SET(A--1, B--3) ELSE RESET 
(A, B--3) : RESET (A-4-1, B--3) 
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2080 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2192 
2195 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2500 
2510 
2520 
2530 


RETURN 

REM ÉK RAJZA 

FOR Y-B TOB--1 

FOR X-A—2 TOA-3 
SET(X, Y) 

NEXT X 

NEXTY 

Y — B--2 

FOR X — A—1 TO A 7-2 
SET(X, Y) 

NEXT X 

SET(A, B-t-3) : SET(A--1, B--3) 
RETURN 

REM KOORD. RNDSZ. RAJZA 
FOR X-3 TO 255 STEP 2 
SET(X, 20) 

NEXT X 

FOR Y 20 TO180STEP2 
SET (3, Y) 

NEXT Y 

PRINTS$15, 0, "0"; 

PRINT$15, 19, "10"; 
PRINT$15, 29, "15"; 

FOR 1—h1 TO 15 

FOR Y—18 TO22 
SET(3--1:k12, Y) 


NEXT Y 

NEXT I 

FOR X—-1 TO 5:SET(X, 180) : NEXT X 
PRINT$1, 1, "17 

RETURN 


REM ELOSZLÁS RAJZA 
FOR 1—1 TOM-1 
X1 — P(I)31591-20 
FOR Y—-20 TOXI 
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2540 
2550 
2560 
2570 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
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SET(3--12:kl, Y) 
NEXTY 

NEXT I 

RETURN 

REM ELOSZLÁSFGV. RAJZA 

Y 20 

FOR 1-1 TON-42 

Y — Y-4P(I—1) 3159 

FOR X 46 3--(I—1)k12 TO 3-£I312 
SET(X, Y) 

NEXT X 

NEXT I 

FOR X —3-(I—1)k12 TO 200 
SET(X, Y) 

NEXT X 

RETURN 


5. LEHETŐSÉGEK MÁS TÁRGYAK 
TANÍTÁSI-TANULÁSI FOLYAMATÁBAN 


Ebben a fejezetben kitekintést teszünk az általános iskolában folyó 
tantárgyi oktatás számítógépes alkalmazásaira. Kitekintésünk lényege- 
sen szerényebb, mint eddigi fejezeteinkben leírt mondanivalónk, hisz e 
területeken nem vagyunk már szakemberek, a tárgyak tanítási-tanulási 
folyamatát az általános iskolai szaktanárok ismerik a legjobban, de 
egy-egy példával igyekszünk segítséget nyújtani a számítógép alkalmazási 
lehetőségeire. ev 

Összeállításunkban elsősorban az általános iskolákban folyó kísér- 
letekre, újítások, pályázatok eredményeire, tapasztalataira támasz- 
kodunk, de hivatkozunk hazai és nemzetközi konferenciák előadásaira, 
elhangzott tapasztalataira és nem utolsó sorban a szakirodalmakban ta- 
lálható igen bő ajánlott és kínált lehetőségekre. 

Mondandónkat az 1985. májusában Magyarországon megrendezett 
,, Mikroscience "85" nemzetközi konferencia egyik megállapításával in- 
dítjuk: minden algoritmikusan megfogalmazható tevékenység alkalmas 
arra, hogy számítógéppel követhető legyen, ezért a számítógép az ok- 
tatásban is alkalmazható, tudatosan alkalmaznunk kell tehát az iskolai 
tantermekben — a kisiskoláskortól az érettségiig — a tantárgyak taní- 
tási-tanulási folyamatában. Ezeket az eszközöket alkalmassá tehetjük 
arra, hogy — akár individuális oktatási formában is — új ismeretekhez 
juttathassuk tanítványainkat, taníthassunk, szemléltethessünk, gyako- 
roltathassunk velük. 
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5.1. Természettudományos tárgyak 


Az általános iskolában oktatott természettudományos tárgyak — fi- 
zika, kémia, biológia, technika, környezetismeret, földrajz — bő lehető- 
séget szolgáltatnak algoritmizálható anyagrészekre. Ily módon e szak- 
tanárok a lehetőségek széles skálája közül választhatnak. A számításos 
feladatokon, anyagrészeken kívül a mikro-világ (-fizika, -kémia, -bioló- 
gia) a szimulációs felhasználásra nyújt igen jó alkalmat. 

A szaktanárok figyelmét elsősorban a tárgyuk tanítási lapjaira 
(Fizika-, Kémia- stb. Tanítása) hívjuk fel. Ezekben a lapokban igen jó 
ötletek számítógépes megvalósítása található, de hasznosan forgatható a 
HC Programkatalógus, melynek Oktatási fejezete is sok programot, 
programcsomagot kínál. 

" Kiemelve a számítógép adta szimulációs fehetőségéket, mi itt egy 
három populáció (róka, nyúl, fű) együttéléséből adódó biológiai konflik- 
tust szimuláló programot mutatunk be. Ez az úgynevezett élet-játék 
program egy olyan összetett rendszer viselkedését írja le, amelyekben 
az egyes fajok populációi (egy fajhoz tartozó egymással szoros kapcso- 
latban lévő egyedek csoportja) egymással kölcsönhatásban élnek: a 
nyulak füvet esznek, a rókák nyulakat stb. 

E kölcsönhatást a matematika differenciálegyenletek segítségével 
írja le. 

10 X10-es négyzet alakú elrendezésben nyulak, rókák és fű van. 
A programban az egyes egyedek számát véletlenszerűen határozzuk meg. 

A játék lényege: fűből nyúl lesz, nyúlból róka, valamilyen általunk 
megadott valószínűséggel. Rókából pedig fű lesz (elpusztul), ha nincs 
nyúl a közelében (a vele szomszédos 4 mező valamelyikében). A gép a 
vizsgálandó mezőt is véletlenszerűen választja ki. Ezeket a változásokat 
a képernyőn követhetjük nyomon: A nyúl £, a róka 0, a fű jele pedig,. 


10 PRINT CHR$(1) 

20 PRINT "ADD MEG A VALÓSZÍNŰSÉGEKET!" 

30 INPUT "FŰBŐL NYÚL"; E1 

40 INPUT "NYÚLBÓL RÓKA"; E2 

50 DIM A(11, 11): CLS: N—MO: NIO: F-0O: FI —0 
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60 
70 
80 
90 
100 


PRINT CHR$(2) 

FOR 1—1 TÓ 10 

FOR JA 1 TO 10 

K — RND((3)) 

ON. K GOTO 110, 120, 130 


T10 A(l,]))— 1: PRINT$I,2 sg J, "82"; : .GOTO 90 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


A(l,J)) 2: PRINT$I,2 $ J, "0"; : GOTO 90 . 
A(lJ)— 3: PRINT$I,2 se]. "s; 

NEXTJ 

NEXT I 

PRINT CHR$(6) 

PRINT $ 13, 2, " NYÚL : £" 

PRINT $ 14, 2, "RÓKA : 0" 

PRINT $ 15, 2 "FŰ : , "; 

I — RND(10) : J — RND(10) 

ON A(I, J) GOTO 220, 260, 310 

REM :X NYÚL Xx ; 

N — N--1: N2—-INT(N-XxXE2) : IF N15—-N2 THEN 250 
N1 — N1--1 : A(l,JD) — 2: PRINT$I, 23k], "0"; 
GOTO 200 

REM X RÓKA :k 

IF A(1— 1, J)— 1 OR A(I--1, J)— 1 THEN 210 
IF A(I —1]) — 1 OR A(I 3-1) — 1 THEN 210 
A(I, J) — 3 : PRINT $ I, 23], ", "; 

GOTO 200 

REM X FŰ. Xx 

F — F--1:F2— INT (F:KE1) : IF FI5F2 THEN 340 
Fi — F1--1 : A(l, J) — 1 : PRINT $ I, 2Xx]," 8"; 
GOTO 200 

END 
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5.2. Humán tárgyak 


Nehezebb, de nem reménytelén a helyzet a nyelvek, a történelem, 
a rajz és az ének oktatása során. Egy történelemtanár írja: , A történe- 
lem mint tárgy — ismeretanyaga jellegéből következően — nem tartja 
számon módszerei között a számítástechnikát, legtöbb területén nin- 
csenek, nem is lehetnek algoritmizálható részek. Mindez nem zárja ki 
annak lehetőségét, hogy — ahol a feltételek adottak — az oktatás folya- 
matában, annak hatékony növelése érdekében megfelelő időben és he- 
lyen ne lehetne a számítástechnika elemeit, eszközeit is felhasználni", 
és nem sokkal később — szintén a Pedagógiai Szemlében — már cikk 
jelenik meg , Az iskolaszámítógép alkalmazása a történelem érettségire 
történő felkészítésében?" címmel. De utalhatnánk itt is a Tanítás-i la- 
pokra és a már említett UC Programkatalógusra. A ma már szép szám- 
ban megjelenő számítástechnikai lapok (Számítástechnika, uMagazin, 
Ötlet stb.) bővelkednek olyan programokban, melyek a számítógép 
grafikai és szín lehetőségeit (rajz, rajzolás), hangeffektusait (zene, ének) 
használják ki, és mutatnak jó példát is a rajz és az ének (zene) oktatás- 
ban való felhasználásokra. 

Mi most itt példaként a helyesírás gyakoroltatására (pontosabban a 
szótagolásra) mutatunk be egy példát. Megjegyezzük azonban, hogy az 
alábbi algoritmus más kérdés feltevéssel, a szótár szavainak átírásával, 
más helyesírási feladat gyakoroltatására is alkalmas. (Lásd uMagazin 
1984/4. 6—7. oldal.) 

A szótagolás gyakorlásának algoritmusa most a következő: 

1. A szótár szavainak és az ellenőrző szavaknak beolvasása, 

2. a kérdés feltevése, és a válasz(-ok) értékelése, 

3. végül a tanulói teljesítmény értékelése. 

A fentiekben leírt algoritmus egy lehetséges programja az alábbi 
lehet: 


10 REM SZÓTAGOLÁS 

20 REM A SZÓTÁR SZAVAINAK BEOLVASÁSA (SZÁMUK N) 
30 INPUT N 

40 DIM S$(N), T$(N) 
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50 FORI-1TON 
60 READ S$(1), T$(1) 
70 NEXT I 
80 REM A SZÓTÁR SZAVAI 
90 DATA "DIÓI", "DI-Ó-I", " LEÁNYAI", "LE-Á-NYA-I", " GALLYAT", 
"GALY-LYAT?","..." 
100 REM A KÉRDÉS FELTEVÉSE, A VÁLASZ ÉRTÉKELÉSE 
10 FOR K—1 TON 
120 PRINT "HOGYAN SZÓTAGOLJUK AZT A SZÓT HOGY"; S$(K) 
130 INPUT V$ 
1140 IF V$--5-T$(K) THEN 160 
150 PRINT "HELYES" : J — J--1 : GOTO 180 
160 PRINT "NEM JÓ" : R — R--1 
170 PRINT "HELYESEN : "; T$(K) 
180 FOR L—-1 TO 3000 : NEXTL 
190 NEXT K 
200 REM A TANULÓI TELJESÍTMÉNY 
210 PRINT "A JÓ VÁLASZOK SZÁMA: "; J 
220 PRINT "A ROSSZ VÁLASZOK SZÁMA : " 
230 END 


5.3. Iskolai adminisztráció 


A személyi számítógépek elterjedésével az iskolai adminisztráció, 
statisztikák készítése is korszerűbbé válhat. Iskolai látogatásaink során 
meggyőződhettünk e munkák széles körű elterjedéséről is. A munkák 
fokozottabb elterjedését nehezíti, hogy célszerűen csak ott alkalmazható 
(igényesen), ahol a személyi számítógépek sornyomtatóval is el vannak 
látva. Az iskolák vezetésének kell törekedni e lehetőség megteremtéséért. 

Az osztályfőnökök, szaktanárok a félévi, év végi statisztikák el- 
készítéséhez felhasználhatják az alapkonfigurációt is, legfeljebb a sta- 
tisztikákat a képernyőről rögzítik papírra vagy a kívánt statisztikai lapra. 

Mi most egy ilyen lehetőséget mutatunk be: tantárgyi osztályzatok 
statisztikájáról. Bemenő adatok: az osztály jele, a tanulók száma, a 
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tárgy neve és a tanulói osztályzatok, míg eredményül a számítógép ki- 
írja az osztályzatok megoszlását és a tanulói átlagot (az osztályzatok 
összeszámlálására egy szubrutint készítettünk). 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 


170 


1000 
10.10 
1020 
1030 
1040 
1050 


REM TANTÁRGYI OSZTÁLYZAT STATISZTIKA 
REM AZ OSZTÁLY JELE 

INPUT O$ 

REM A TANULÓK SZÁMA 

INPUT N 

REM A TÁRGY NEVE 

INPUT T$ 

REM OSZTÁLYZATOK 

GOSUB 1000 

REM EREDMÉNYEK KIÍRÁSA 

PRINT O$ 

PRINT T$ 

FORO—-5TOTSTEP —1 

PRINT O; " : ", O(O);?" TANULÓ" 

NEXT O 

PRINT "AZ ÁTLAG : ", (53XO(5)--4:RO(4)--3:RO(3) 1-2 -kO 


3)-4-25k0(2)--15O(1))/N 


END 


REM AZ OSZTÁLYZATOK ÖSSZESZÁMLÁLÁSA 
DIM 065) 

FORI-1TOS5 

O() — 0 

NEXT ! 

FORT-1TON 


1060 INPUT O 


1070 


O(0) — 0(0)--1 


1080 NEXT T 


1090 
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RETURN 


FÜGGELÉK 


a BÁSIC szavak jelentése, kiejtése 


Alapszó Jelentése Kiejtés Megjegyzés 
LET legyen let 
INPUT bevitel input 
READ olvasás rid 
DATA adatok déjtő 
RESTORE helyreállít risztor 
PRINT nyomtatás print 
CHAR betű, jel ker character (keriktör) röv. 
REM megjegyzés, rim remark (rimák) röv. 
megjegyez 
STOP megállás stop 
END vég, befejezés end 
GOTO menj ...hez gótu go to-ból 
IF ha ír 
THEN akkor den 
ELSE különben elsz 
TO -ig tu 
FOR részére, számára for 
NEXT következő nekszt 
STEP lépés sztep 
DO tesz, elvégez du 
UNTIL amíg, ameddig ántil 
(egy biz. ideig) 
WHILE míg, mialatt vájl 
" RETURN visszatérés ritörn 
GOSUB menj... szubrutinhoz gószub go subroutine-ból 
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DIM 
DEFFN 
SET 
RESET 
GRAPHIC 
DRAW 
BOX 
CIRCLE 
PAINT 
MID 
RIGHT 
LEFT 
AUTO 


BREAK 
CLEAR 
LOAD 
TEST 
VERIFY 
CLS 
CONT 
SAVE 
DELETE 
EDIT 
LIST 
NEVV 
RE 

RUN 
SYSTEM 
TRON 


TROFF 
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dimenzió, méret 
fgv. definiálás 
tesz, helyez 
vissza- 
rajzolt 

rajzol 

doboz 

kör 

fest 

középső 
jobb 

bal 
önműködő, 
automatikus 
megszakítás 
tisztít 

betölt 
megvizsgál 
átvizsgál 
képernyő törlés 
folytat 
megment 
töröl 
szerkesztés 
lista, jegyzék 
új 

újra 

futás, fut 
rendszer 
nyomkövetés 
bekapcsolása 
nyomkövetés 
kikapcsolása 


dim dimension röv. 
def fn definition function röv. 
szet 

riszet 

grefik 

dro 

boksz 

szörkl 

péjnt 

midi! middle röv. 
rájt 

left 

autö automatic röv. 


bréjk 

klir 

lód 

teszt 

verifáj 

klirszkrin clear screen-ből 
kánt continue röv. 
széjv 

dilit 

edit 

liszt 

nyu 

ri 

rán 

szisztim 

trejsz on trace on-ból 


trejsz off trace off-ból 
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Kiadja a Juhász Gyula Tanárképző Főiskola 
A kiadást gondozza: a JGYIF 
Szakszervezeti Bizottsága 
A kiadásért felelős: Riesz Béla 
86-3929 — Szegedi Nyomda 
Felelős vezető: Surányi Tibor igazgató 
Megjelent: 8,5 A/5 ív terjedelemben 7000 példányban 
Készült: monószedéssel, íves magasnyomással az MSZ 560—159 

és az MSZ 5602—55 szabvány szerint 
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